【Excel VBA】フォルダが存在しなければ作成する

Dim folderPath As String
folderPath = ThisWorkbook.Path & "/hoge"
If Dir(filePath, vbDirectry) = "" Then
    MkDir folderPath
End If
スポンサーリンク