以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]指定文件夹获取文件路径  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=108952)
--  作者：天一生水
--  发布时间：2017/11/1 14:06:00
--  [求助]指定文件夹获取文件路径

想从默认文件夹中选中文件，比如：d:\\data     怎样修改：

 

Dim dlg As New OpenFileDialog              \'定义一个新的OpenFileDialog
If dlg.ShowDialog = DialogResult.Ok Then   \'如果用户单击了确定按钮
    e.Form.Controls("TextBox1").value = dlg.FileName
End If
--  作者：有点甜
--  发布时间：2017/11/1 14:20:00
--  

Dim dlg As New OpenFileDialog              \'定义一个新的OpenFileDialog
dlg.InitialDirectory = "d:\\test"
If dlg.ShowDialog = DialogResult.Ok Then   \'如果用户单击了确定按钮

 

End If