Question

我正在使用OpenFileDialog打开文件。我的代码如下 -

Public Sub ShowOpenDialog()
Dim f As New OpenFileDialog
f.InitialDirectory = GetFolderPath(SpecialFolder.MyDocuments)
f.Title = "Open File"
f.CheckFileExists = True
f.CheckPathExists = True
f.DefaultExt = "*.txt"
f.Filter = "Text (*.txt)|*.txt|All Files|*.*"
f.FilterIndex = 1
f.RestoreDirectory = True
If f.ShowDialog() = DialogResult.OK Then
'f.FileName displays file path, what I need is its folder path
'Performing action with f.FileName
End If
End Sub

我还需要文件的位置（文件夹路径），但我无法找到，如何获取？

P.S。 - 我（也）需要打开文件，所以我必须使用OpenFileDialog而不是FolderBrowserDialog。这就是为什么，我正在寻找一种方法从OpenFileDialog获取文件的文件夹路径

Answer 1

这将返回父文件夹名称。（适用于文件和文件夹（文件夹，不以＆＃34结尾; \＆＃34;）

    ''Be sure to   Import Imports System.IO
Function GetDirPath(ByVal file As String) As String
    Dim fi As New FileInfo(file)
    Return fi.Directory.ToString
End Function

如何从Visual Basic 2013中的OpenFileDialog打开文件的文件夹路径

1 个答案: