- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]打开文件夹功能 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=90528)
-- 发布时间：2016/9/15 14:48:00
-- [求助]打开文件夹功能
想用一个按钮click事件实现直接打开某个文件夹（和电脑操作一样），直接在文件夹里管理文件，而不是通过FileManager管理文件，可以做到吗，没找到方法，请老师解答下
-- 发布时间：2016/9/15 15:18:00
--
已找到方法，自己解答：
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
MessageBox.Show("你选择的是：" & dlg.FileName,"提示") \'提示用户选择的文件
End If
Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
OutPut.Show("你选择了" & dlg.FileNames.Length & "个文件, 分别是:")
For Each fl As String In dlg.FileNames
Output.Show(fl)
Next
End If
-- 发布时间：2016/9/15 15:32:00
--
下一个问题，在模拟打开文件这个动作的过程中，如何表达筛选器筛选出的地址？以下表达似乎不行，请老师解答：
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
MessageBox.Show("你选择的是:" & dlg.FileName,"提示") \'提示用户选择的文件
End If
Dim Proc As New Process \'打开文件
Dim fl As String =& dlg.FileName
Proc.File = fl
Proc.Start()
-- 发布时间：2016/9/15 17:44:00
--
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
MessageBox.Show("你选择的是:" & dlg.FileName,"提示") \'提示用户选择的文件
End If
Dim Proc As New Process \'打开文件
Dim fl As String = dlg.FileName
Proc.File = fl
Proc.Start()
-- 发布时间：2016/9/15 23:19:00
--
感谢老师，明白了
-- 发布时间：2018/5/10 9:33:00
--
-- 发布时间：2018/5/10 9:35:00
--
同问，怎么过去二年了，感谢哪位专家解答一下
请具体你的问题。楼上都是答案，你需要什么？
-- 发布时间：2018/5/10 9:40:00
--
原谅我是新手，刚才查的时候不显示，我以为没有回复，提交后看到楼主和管理员都有回复，可是又没找到删帖的地方
抱歉