フォルダの作成

Sub MAKE_DIR(strDIRNAME As String)  'ディレクトリ名 フルパスを受け取り、作成する。

    'いきなりMKDIR関数で作ると、重複時にエラーが発生するので、
    'DIR関数でディレクトリ(フォルダー)の存在をチェックする。
    If Dir(strDIRNAME, vbDirectory) = "" Then '※vbDirectoryを忘れずに指定する。
        MkDir strDIRNAME    '↑上記で見つからなかったので、MKDIR関数で新規作成する。
    End If

End Sub

ネタ元