VBA｜GetAbsolutePathNameメソッド(ファイルシステムオブジェクト)

  Copy

Option Explicit

Sub ファイルシステムオブジェクト_GetAbsolutePathNameメソッド()
    'ファイルシステムオブジェクトを使うため準備
    '①事前バインディングの場合はVBEのツールより参照設定で「Microsoft Scripting Runtime」にチェックをしてください。
    Dim FSO As FileSystemObject
    Set FSO = New FileSystemObject

    'カレントディレクトリを変更する
    ChDir ("C:\Users\ユーザー名\Documents")

    'GetAbsolutePathNameメソッドの使用例
    Debug.Print "①"; FSO.GetAbsolutePathName("C:")

    'カレントディレクトリを変更する
    ChDir ("C:\Users\ユーザー名\Desktop\Test")
    
    'GetAbsolutePathNameメソッドの使用例(パスの書きかたごとの結果を出力する)
    Debug.Print "②"; FSO.GetAbsolutePathName("C:")
    Debug.Print "③"; FSO.GetAbsolutePathName("C:..")
    Debug.Print "④"; FSO.GetAbsolutePathName("C:\")
    Debug.Print "⑤"; FSO.GetAbsolutePathName("C:.\サンプル")
    Debug.Print "⑥"; FSO.GetAbsolutePathName("サンプル")
    Debug.Print "⑦"; FSO.GetAbsolutePathName("C:....\サンプル")

End SubCopy