【vba】もしフォルダがなければ作成したい

質問

Sub test()
If Dir("C:\バックアップ\" & Date$) <> "" Then
'ファイルがないなら作成
MkDir "C:\バックアップ\" & Date$
End If
End Sub

このコードを実行しても
ファイルがあってもなくても作成されないのですが
何がおかしいのでしょうか？

回答No.1

myRange · ベストアンサー

フォルダーを作成するわけですから
Dir関数にフォルダーかどうかの引数vbDirectoryを
セットしないといけません。
また、なかったらという場合のIFステートメントも間違い。

Sub test()
　If Dir("C:\バックアップ\" & Date$, vbDirectory) = "" Then
　　　MkDir "C:\バックアップ\" & Date$
　End If
End Sub

お礼

サンプルどおり「＝」にしてvbDirectoryを付けたらできました！
ありがとうございます。