Foxtable(狐表)用户栏目专家坐堂 → 请教:OpenFileDialog打开目录后选中文件的问题


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

主题:请教:OpenFileDialog打开目录后选中文件的问题

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


加好友 发短信
等级:狐神 帖子:4632 积分:33804 威望:0 精华:0 注册:2008/8/31 22:44:00
请教:OpenFileDialog打开目录后选中文件的问题  发帖心情 Post By:2020/3/23 15:20:00 [只看该作者]

以下代码可以打开指定目录
Dim 文件路径 As String = "D:\百度云同步盘\ftCode\Code.mdb"  '同步盘的表
Dim 文件目录 As String = 文件路径.SubString(0,文件路径.LastIndexOf("\"))
If Filesys.FileExists(文件路径)
    Dim 打开文件 As New OpenFileDialog '定义一个新的OpenFileDialog
    打开文件.InitialDirectory = 文件目录
    打开文件.Filter= "ACCESS文件|*.mdb" '设置筛选器
    打开文件.ShowDialog
End If

想在打开指定目录后,自动选中"D:\百度云同步盘\ftCode\Code.mdb"文件,怎么写?


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


加好友 发短信
等级:超级版主 帖子:106430 积分:541297 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/23 15:52:00 [只看该作者]

    Dim 打开文件 As New OpenFileDialog '定义一个新的OpenFileDialog
    打开文件.InitialDirectory = 文件目录
    打开文件.filename =  Filesys..getname(文件路径)

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


加好友 发短信
等级:狐神 帖子:4632 积分:33804 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2020/3/23 16:09:00 [只看该作者]

虽然没有直接选中,但已经达到目的,谢谢蓝版。

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


加好友 发短信
等级:超级版主 帖子:106430 积分:541297 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/23 16:31:00 [只看该作者]

没有办法选中的

 回到顶部