你的確需要看一下excel vbs 內建的help，
因為1次只能建立1層資料夾，
也就是你不能直接
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateFolder("d:\aaa\bbb\ccc")
這是行不通的。
你必須先建立d:\aaa，再建立d:\aaa\bbb....
同時在建立每1層資料夾前，用
If (fso.FolderExists("d:\aaa")) Then
去檢查是否資料夾已存在。