Office TANAKA - FileSystemObject[BuildPathメソッド]

【書式】

FileSystemObject.BuildPath(path, name)

指定したパス(path)の末尾に、新しいフォルダ名(name)を追加したパスを返します。

BuildPathメソッドは、新しいパス名を文字列として生成するだけです。実際に新しいフォルダが作成されるわけではありません。

引数pathに、存在しないパスを指定してもエラーになりません。

Sub test2()
    ''カレントフォルダの後ろに新しいフォルダ名を追加します
    Dim FSO As Object, buf As String
    Set FSO = CreateObject("Scripting.FileSystemObject")
    buf = InputBox("新しいフォルダ名は？")
    MsgBox FSO.BuildPath(CurDir, buf)
    Set FSO = Nothing
End Sub

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