'デスクトップに「test」という名前のフォルダがなければフォルダを新規で作成します。 Sub Sample37() 'testフォルダの有無を確認 If Dir("C:\Users\Default\Desktop\test", vbDirectory) = "" Then 'フォルダを作成 MkDir "C:\Users\Default\Desktop\test" End If End Sub