VBA フォルダ作成する(MkDir)

MkDir path
フォルダを作成するにはMkdirステートメントにフォルダのパスを引数に指定します。
ドライブ名を指定しない場合はカレントフォルダに作成されます。

サンプルコード

Sub mkmkd()
Dim tDir As String 'フォルダ作成パス
Dim nDir As String '作成するフォルダ名
    
    'このワークブックのパスを取得
    tDir = ThisWorkbook.Path
    
    'tDirに作成するフォルダ名(名称:test)
    nDir = tDir & "\" & "test"
    
    '既にnDirがあるかどうか確認
    If Dir(nDir, vbDirectory) = "" Then
        'ない場合は作る
        MkDir nDir
    'あるなら何もしない
    Else: End If

End Sub

サンプルコードではDir関数を使用して フォルダの有無を確認しています。