FileSystemObjectオブジェクト - GetParentFolderNameメソッド

  1. Home
  2. Excel
  3. VBA
  4. FileSystemObject
  5. FileSystemObjectオブジェクト

【書式】

FileSystemObject.GetParentFolderName(path)

指定したフォルダの親フォルダ名を文字列で返します。

引数pathには親フォルダを調べるパスを指定します。指定するパスは実在しなくてもかまいません。たとえば、存在しない「G:\tanaka\toru\」を指定すると、\で区切られた最終要素から2番目の「G:\tanaka」を返します。

Sub test20()
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    ''C:\Workという文字列を返します
    MsgBox FSO.GetParentFolderName("C:\Work\Sub\")
    Set FSO = Nothing
End Sub