主题：[求助]打开文件夹功能

想用一个按钮click事件实现直接打开某个文件夹（和电脑操作一样），直接在文件夹里管理文件，而不是通过FileManager管理文件，可以做到吗，没找到方法，请老师解答下

已找到方法，自己解答：

 

 

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

下一个问题，在模拟打开文件这个动作的过程中，如何表达筛选器筛选出的地址？以下表达似乎不行，请老师解答：

 

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()

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()

感谢老师，明白了

 

 

请具体你的问题。楼上都是答案，你需要什么？

原谅我是新手，刚才查的时候不显示，我以为没有回复，提交后看到楼主和管理员都有回复，可是又没找到删帖的地方抱歉