指定されたパスの最後のコンポーネントの親フォルダの名前を含む文字列を戻します。
構文
object.GetParentFolderName(path)
引数:
FileSystemObjectの名前。注:
GetParentFolderNameメソッドは、指定されたパス文字列に対してのみ機能します。パスの解決は試行されず、指定されたパスの存在も確認しません。
次の例では、GetParentFolderNameメソッドの使用方法を示します。
例1:
Function GetTheParent(DriveSpec)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
GetTheParent = fso.GetParentFolderName(DriveSpec)
End Function
' Usage
Dim parentFolder
parentFolder = GetTheParent("C:\Path\To\Your\File.txt")
' Output: C:\Path\To\Your
例2:
Function GetTheParent(DriveSpec)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
GetTheParent = fso.GetParentFolderName(DriveSpec)
End Function
' Usage
Dim parentOfDirectory
parentOfDirectory = GetTheParent("C:\Path\To\Your\Folder\SubFolder")
' Output: C:\Path\To\Your\Folder