以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请教:OpenFileDialog打开目录后选中文件的问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=147756)

--  作者:y2287958
--  发布时间:2020/3/23 15:20:00
--  请教:OpenFileDialog打开目录后选中文件的问题
以下代码可以打开指定目录
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"文件,怎么写?


--  作者:有点蓝
--  发布时间:2020/3/23 15:52:00
--  
    Dim 打开文件 As New OpenFileDialog \'定义一个新的OpenFileDialog
    打开文件.InitialDirectory = 文件目录
    打开文件.filename =  Filesys..getname(文件路径)

--  作者:y2287958
--  发布时间:2020/3/23 16:09:00
--  
虽然没有直接选中,但已经达到目的,谢谢蓝版。
--  作者:有点蓝
--  发布时间:2020/3/23 16:31:00
--  
没有办法选中的