從文件路徑檢索文件夾路徑

Question

我能夠從文件對話框功能中選擇文件並將文件路徑存儲在字符串中。但我也想要所選路徑的文件夾名稱。你可以請告知如何從選擇文件中獲取文件夾路徑。選擇

文件是：

U:\public\2016\Macro\CD-CW\109 file.xlsx 

我想說明，直到：

U:\public\2016\Macro\CD-CW\ 

我的代碼

Dim fd As Office.FileDialog 
Set fd = Application.FileDialog(msoFileDialogFilePicker) 
With fd 
    .AllowMultiSelect = False 
    .Title = "Please select the file." 
    .Filters.Clear 
    .Filters.Add "Excel 2010", "*.xlsx" 
    .Filters.Add "All Files", "*.*" 
    If .Show = True Then 
     selfile = .SelectedItems(1) 'replace txtFileName with your textbox 
    End If 
End With 

Answer 1

這是非常簡單的：

Dim filePath, directoryPath As String 
filePath = "U:\public\2016\Macro\CD-CW\109 file.xlsx" 
directoryPath = Left(filePath, InStrRev(filePath, "\")) 

Answer 2

您可以使用Left和InStrRev函數刪除從右側找到的第一個\之後的最後一個字符串。

Dim FilePath As String 

Dim fd As Office.FileDialog 
Set fd = Application.FileDialog(msoFileDialogFilePicker) 
With fd 
    .AllowMultiSelect = False 
    .Title = "Please select the file." 
    .Filters.Clear 
    .Filters.Add "Excel 2010", "*.xlsx" 
    .Filters.Add "All Files", "*.*" 
    If .Show = True Then 
     FilePath = Left(.SelectedItems(1), InStrRev(.SelectedItems(1), "\")) 
     Debug.Print FilePath 
     selfile = .SelectedItems(1) 'replace txtFileName with your textbox 
    End If 
End With