VBSでサブディレクトリの作成

Question

毎月ディレクトリ作成を下記VBSでします

dim ws
dim fs
dim cd
dim sInput
dim sMonth
dim sMonthName
dim sDate

if LCase(Right(WScript.FullName,Len("cscript.exe")))="cscript.exe" Then
WScript.Echo "何月分のディレクトリを作成しますか？"
sInput=WScript.StdIn.Readline()
else
sInput=InputBox("何月分のディレクトリを作成しますか？"& vbCrLf &"「○月分」と入力")
end if
set fs=createobject("Scripting.FileSystemObject")
set ws=CreateObject("WScript.Shell")
set cd=fs.getfolder(ws.CurrentDirectory)

sMonthName=Left(sInput,InStr(1,sInput,"分",1)-1)
sMonth=Left(sInput,InStr(1,sInput,"月",1)-1)
fs.CreateFolder(cd.Path & "/" & sMonthName)

for i=1 to 31
sDate=Year(Now) & "/" & Right("0" & sMonth,2) & "/" & Right("0" & i,2)
if IsDate(sDate) then
fs.CreateFolder(cd.Path & "/" & sMonthName & "/" & Year(Now) & Right("0" & sMonth,2) & Right("0" & i,2))
else
exit for
end if
next

set cd=nothing
set ws=nothing
set fs=nothing

これでできるディレクトリの中にさらに３つ
A
B
C
というディレクトリを作成したいのですがどうすればいいでしょうか。
例
９月分
┃
┣20210901 ┳A
┣20210902 ┣B
┣20210903 ┗C
.
.
.
これを20210902
20210903...

全てに入れたいです

Answer 1

対象のフォルダができてるなら、
fs.CreateFolder(cd.Path & "/" & sMonthName & "/A")
でやってみてください

Comments

[Ryusei126]

わかりづらく申し訳ないです。

上記VBSを実行すると
9月
　20210901
20210902

とできるのですが
実行したら
9月分
　20210901
A
B
C
20210902
A
B
C

と言うふうに作成できるようにしたいです。

[y_waiwai]

したいならそうしましょう。

あなたが聞きたいことというのは何でしょうか

[Ryusei126]

解決できました！

ありがとうございます！