Foxtable(狐表)用户栏目专家坐堂 → [求助]打开文件夹功能


  共有2967人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
沦落深蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:170 积分:1195 威望:0 精华:0 注册:2016/2/21 18:26:00
[求助]打开文件夹功能  发帖心情 Post By:2016/9/15 14:48:00 [显示全部帖子]

想用一个按钮click事件实现直接打开某个文件夹(和电脑操作一样),直接在文件夹里管理文件,而不是通过FileManager管理文件,可以做到吗,没找到方法,请老师解答下图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
沦落深蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:170 积分:1195 威望:0 精华:0 注册:2016/2/21 18:26:00
  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
沦落深蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:170 积分:1195 威望:0 精华:0 注册:2016/2/21 18:26:00
  发帖心情 Post By: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()


 回到顶部
帅哥哟,离线,有人找我吗?
沦落深蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:170 积分:1195 威望:0 精华:0 注册:2016/2/21 18:26:00
  发帖心情 Post By:2016/9/15 23:19:00 [显示全部帖子]

感谢老师,明白了

 回到顶部