ディレクトリを作成する

　Excel VBAでディレクトリを作成するには、主に以下の2つの方法があります。

1. MkDir関数を使用する

　MkDir関数は、指定したパスに新しいフォルダを作成します。構文は以下の通りです。

VBA
MkDir [パス]
コードは注意してご使用ください。

　[パス] には、作成するフォルダのパスを指定します。
　パスは、ドライブ名、フォルダ名、ファイル名などを含む文字列で指定します。

例:

VBA
' Cドライブ直下に「test」というフォルダを作成する
MkDir "C:\test"

' 現在のワークブックと同じフォルダに「newdir」というフォルダを作成する
MkDir ThisWorkbook.Path & "\newdir"
コードは注意してご使用ください。

2. FileSystemObjectオブジェクトを使用する

　FileSystemObjectオブジェクトは、ファイルシステムに関する操作を行うためのオブジェクトです。
　CreateFolderメソッドを使用して、新しいフォルダを作成することができます。構文は以下の通りです。

VBA
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateFolder [フォルダパス]
コードは注意してご使用ください。

[フォルダパス] には、作成するフォルダのパスを指定します。

例:

VBA
' Cドライブ直下に「test」というフォルダを作成する
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateFolder "C:\test"

' 現在のワークブックと同じフォルダに「newdir」というフォルダを作成する
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateFolder ThisWorkbook.Path & "\newdir"
コードは注意してご使用ください。

補足:

　フォルダを作成する前に、そのフォルダが存在しないことを確認する必要があります。
　Dir関数やFolderExistsメソッドを使用して、フォルダの存在を確認することができます。
フォルダを作成する際に、親フォルダが存在しない場合は、自動的に作成されます。