PCメモ

Excelを中心とした業務改善の記録

同じ階層にフォルダを作成する(Mkdir)

 

Sub フォルダ作成()

 '--- 作成したいフォルダのパス ---'
 Dim strPath As String
 
 strPath = ThisWorkbook.Path & "¥処理後"

 '--- フォルダが存在しない場合のみMkDirで作成 ---'
 If (Dir(strPath, vbDirectory) = "") Then

  Call MkDir(strPath)

 Else
  MsgBox "フォルダ作成済みです。確認してください。"

 End If

End Sub