Office TANAKA - FileSystemObject[GetAbsolutePathNameメソッド]

【書式】

FileSystemObject.GetAbsolutePathName(pathspec)

省略したパスから完全なパス名を返します。

引数pathspecには省略形のパスを指定します。パスの区切りには\だけでなく/も使用できます。

Sub test12()
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    ''カレントフォルダがC:\Work\Job\Subだったとき
    ''C:\Workを返します
    MsgBox FSO.GetAbsolutePathName("../..")
    ''C:\を返します
    MsgBox FSO.GetAbsolutePathName("\")
    ''C:\Work\Reportを返します
    MsgBox FSO.GetAbsolutePathName("..\..\Report")
    Set FSO = Nothing
End Sub

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