Foxtable(狐表)用户栏目专家坐堂 → 怎么选中文件?


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

主题:怎么选中文件?

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


加好友 发短信
等级:四尾狐 帖子:824 积分:6294 威望:0 精华:0 注册:2012/3/1 3:17:00
怎么选中文件?  发帖心情 Post By:2020/4/10 20:47:00 [只看该作者]

根据文件的路径,文件名,怎么实现打开目录后选定指定的文件?请教老师,谢谢

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


加好友 发短信
等级:狐神 帖子:4724 积分:34374 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2020/4/10 22:14:00 [只看该作者]

Dim Proc As New Process
Dim wj As String = "d:\test.xls"
Dim rs As String = "  /select," & wj & " "
'output.Show(rs)
Proc.File = "explorer.exe" '指定要执行的文件
Proc.Arguments = rs '指定命令行参数
Proc.Start()

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


加好友 发短信
等级:超级版主 帖子:109736 积分:558396 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/11 10:03:00 [只看该作者]

OpenFileDialog ?

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog 
dlg.Filter= 
"Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" '设置筛选器
dlg.Filter = "abc.xls"
If
 dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    MessageBox.Show(
"你选择的是:" & dlg.FileName,"提示"'提示用户选择的文件
End
 
If

 回到顶部