Sub フォルダ作成()
'--- 作成したいフォルダのパス ---'
Dim strPath As String
strPath = ThisWorkbook.Path & "¥処理後"
'--- フォルダが存在しない場合のみMkDirで作成 ---'
If (Dir(strPath, vbDirectory) = "") Then
Call MkDir(strPath)
Else
MsgBox "フォルダ作成済みです。確認してください。"
End If
End Sub
Sub フォルダ作成()
'--- 作成したいフォルダのパス ---'
Dim strPath As String
strPath = ThisWorkbook.Path & "¥処理後"
'--- フォルダが存在しない場合のみMkDirで作成 ---'
If (Dir(strPath, vbDirectory) = "") Then
Call MkDir(strPath)
Else
MsgBox "フォルダ作成済みです。確認してください。"
End If
End Sub