【質問事項】
フォルダを作成する際に、サブフォルダを含めて一括で作成する方法を
ご存知の方がいらっしゃれば教えて下さい。

【例】
作成フォルダ：C:\TEMP\YYYYMMDD\HHMMSS
YYYYMMDD：日付
HHMMSS：時刻
C:\TEMPまでが固定ディレクトリで、それ以降は可変となり
フォルダ作成時にはフォルダ自体存在していません。

以上です。よろしくお願い致します。

> 【質問事項】
> フォルダを作成する際に、サブフォルダを含めて一括で作成する方法を
> ご存知の方がいらっしゃれば教えて下さい。

一括で作成する方法はないので、作成するフォルダの親フォルダがなければ
親フォルダを作成してから、作成するしかないです。
再帰を使えば、関数１つで済みます。

Private Sub MkDirEX(ByVal strPathName As String)
    Dim fso As Object
    Dim strParentPath As String

    Set fso = CreateObject("Scripting.FileSystemObject")
    
    strParentPath = fso.GetParentFolderName(strPathName)
    If fso.FolderExists(strParentPath) = False Then
        MkDirEX strParentPath
    End If
    fso.CreateFolder strPathName
End Sub

【例】
   Call MkDirEX("C:\TEMP\YYYYMMDD\HHMMSS")

> > 【質問事項】
> > フォルダを作成する際に、サブフォルダを含めて一括で作成する方法を
> > ご存知の方がいらっしゃれば教えて下さい。
>
> 一括で作成する方法はないので、作成するフォルダの親フォルダがなければ
> 親フォルダを作成してから、作成するしかないです。
> 再帰を使えば、関数１つで済みます。
>

一括作成する方法は無いのですね。LESIAさんに教えていただいた方法で
フォルダの作成を実施してみようと思います。ありがとうございましたv(^o^)v

> 一括作成する方法は無いのですね。
VB標準ではありません……が、APIを使っても良ければ、こんな関数があります。

'ディレクトリの記述はルートから始めて、最後を「\」で終えて下さい
Public Declare Function MakeSureDirectoryPathExists _
  Lib "imagehlp" (ByVal DirPath As String) As Long

DirPath に、フォルダのフルパスを指定するだけで、
深い階層のディレクトリも一括で作成してくれます。

魔界の仮面弁士さん。またまたありがとうございます。
今回も参考にさせていただきます。

ご存じの方も多いと思いますが、
参考リンクの様に２バイト文字で記載した場合エラーとなることがあります。
⇒ 私もこれで焦ったことがあり、今はベーシックな方法を採用しています。
また、確認していませんがあまり長いパス名もエラーになると聞いたことがあります。

>MakeSureDirectoryPathExists()で「ソ」「表」がつかえない。
>MakeSureDirectoryPathExists("C:\\ソニー\\表紙\\");
>とかいう風にできないってことです。ＮＴだとオッケーですけど。

>これはJISコードが
>\  = 5c
>ソ = 835c
>表 = 955c
>であり文字の後部を \ として検出したためだと思われますが・・・

＞サブフォルダを含めたフォルダの一括作成
ＤＯＳのＭＤ(make dir)コマンドはいける模様です。
（このご時世にＤＯＳかとたたかれてしまいそうですが＾＾；）

ご参考までに・・

> ＞サブフォルダを含めたフォルダの一括作成
> ＤＯＳのＭＤ(make dir)コマンドはいける模様です。

Windows 95, 98, Me といった、9X系のMDコマンドでは拒否されてしまうかと思いますよ。
一括作成が可能なのは、Windows 2000、XP、2003等といった、NT系のMDコマンドですね。

# 細かい話ですが、厳密には、NT系のそれは「DOS」ではありません。
# 9X系にはDOSモードがありますが、NT系には無いからです(コンソールモードならあります)。
## スタートメニューから辿れる、CUIのウィンドウにしても、9X系の場合は、
## 「MS-DOS コマンド プロンプト」ですが、NT系では「コマンドプロンプト」になっていますよね。

> Windows 95, 98, Me といった、9X系のMDコマンドでは拒否されてしまうかと思いますよ。
> 一括作成が可能なのは、Windows 2000、XP、2003等といった、NT系のMDコマンドですね。
そうなんですかすみません　調べ足りずでした
> # 細かい話ですが、厳密には、NT系のそれは「DOS」ではありません。
> # 9X系にはDOSモードがありますが、NT系には無いからです(コンソールモードならあります)。
> ## スタートメニューから辿れる、CUIのウィンドウにしても、9X系の場合は、
> ## 「MS-DOS コマンド プロンプト」ですが、NT系では「コマンドプロンプト」になっていますよね。
そうですね。　Win3.1、9Xは形はＧＵＩフェースですが、システム管理はまだまだＤＯＳでした
デバイスにメモリを割り当てて・・とか黒い画面を頻繁に立ち上げなくてはならなかったですね
完全３２ＢｉｔＯＳであるＮＴや２０００ではWindowsでシステム全体を仕切れるようになり、
本来のＤＯＳは必要なくなりました。WindowsがＤＯＳを制御してますよね
昔セットアップに重宝したDOSのsys転送コマンドも　コンソールに搭載されてませんね
最近のＰＣにはＦＤＤがついてないから（ＣＤブートでいいから）必要ないってことですかね

ＤＯＳはWindowsAPIで実装されているんなら　ＭＤコマンドは何が使われてるんでしょうね
それがわかれば　苦労はしないですが＾＾；