以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]打开文件目录  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=139291)

--  作者:天一生水
--  发布时间:2019/8/10 8:31:00
--  [求助]打开文件目录
我在选择文件后,希望同时打开文件所在的目录,怎样获取文件所在的路径?
谢谢!

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(FileSys.GetName(fl))
    Next
    
    Dim Proc As New Process
    Proc.File = dlg.InitialDirectory     ???
    proc.start
End If

--  作者:有点蓝
--  发布时间:2019/8/10 8:53:00
--  
Dim Proc As New Process
    Proc.File = FileSys.GetParentPath(dlg.FileNames(0))
    proc.start

--  作者:天一生水
--  发布时间:2019/8/10 8:59:00
--  
谢谢蓝老师!
这个打开的文件目录窗口,能否设置窗口大小和位置?

--  作者:有点蓝
--  发布时间:2019/8/10 9:37:00
--  
无法设置