新規フォルダをＥＸＣＥＬ ＶＢＡで作成したいのですが

質問

ＥＸＣＥＬシートに入力されたデータを１件ずつ新しいファイルに作成をするプログラムを作っているのですが、その際自動で新規フォルダを作成して、その中にどんどん新しくできる１件ごとのファイルを入れていきたいと思ってます。
ダイアログボックスを開かずに、新規フォルダを作るができるでしょうか。
尚　新規フォルダは元のファイルのフォルダ内に作りたいと思ってます。
回答よろしくお願いします。

回答No.1

imogasi · ベストアンサー

例えば:\My Documentsにnewdirというフォルダを
作成する例です。コードはＭｏｄｕｌｅ１に作成
します。多数作成する時はndirを配列にするとか
してはどうでしょう。
階層関係は、ndirの表現の問題になります。
ndir = "c:\My Documents\newdir\ndirs"
とするとnewdirの中に、ndirsが出来ます。
Sub test01()
Dim ndir As String
ndir = "c:\My Documents\newdir"
MkDir ndir
End Sub

お礼

お礼が遅くなりすいません。
MkDirでできました。
どうもありがとうございます。