ファイルパスからフォルダパスを取得する

Question

私はfiledialog関数からファイルを選択し、ファイルパスをstringに格納することができます。私はまた、選択したパスのフォルダ名が必要です。選択したファイルからフォルダパスを取得する方法を教えてください。

選択されたファイルは次のとおりです。

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