上位ディレクトリ名の取得

指定したパス(相対パス、絶対パス)から上位フォルダのパスを取得する

Function getFileDir( filePath )
    Dim objFSO

    Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
    if Err.Number <> 0 Then
        WScript.Quit()
    end if
    Dim strFullPath
    strFullPath = objFSO.GetAbsolutePathName( filePath )
    getFileDir = objFSO.GetParentFolderName( strFullPath )
    set objFSO = Nothing
end Function