パスとファイル名からフルパスを生成する【BuildPathメソッド】【FileSystemObject】【ExcelVBA】

構文

Object.BuildPath(Path As String, NameAs String) 

BuildPathメソッドのサンプルコード

Public Sub sample()

    '■FileSystemObjectの宣言
    Dim fso As Object: Set fso = CreateObject("Scripting.FileSystemObject")
    
    '■区切文字￥がない場合は自動的に付与してくれる
    Debug.Print fso.BuildPath("C:\vba", "sample.txt")   'C:\vba\sample.txt
    Debug.Print fso.BuildPath("C:\vba\", "sample.txt")  'C:\vba\sample.txt

    '■区切文字￥がない場合は自動的に付与してくれる
    Debug.Print fso.BuildPath("C:\vba", "sub\sample.txt")   'C:\vba\sub\sample.txt
    Debug.Print fso.BuildPath("C:\vba\", "sub\sample.txt")  'C:\vba\sub\sample.txt

End Sub

注意点

• 指定パスの末尾に円マーク(\)付与する処理をFileSystemObjectで実現する場合は上記のコードです。

関連記事

• フォルダの存在を調べる【FolderExistsメソッド】【FileSystemObject】
• ファイルの存在を調べる【FileExistsメソッド】【FileSystemObject】