用txt文件批量创建有层次的文件夹

如何用txt（意思是txt文件保存文件夹名）创建有层次的文件夹 ？最好用bat解决 用vbs的话麻烦加两句注释
要求创建这种：
11
11\22
33
33\44等
(11,22是等保存在txt中的名字)
尽量在txt中不重复上一个文件夹名,例如创建33\44 看看通过什么控制 我只需输入33
能做到吗？谢谢

vbs是：
Set fso=CreateObject("Scripting.FileSystemObject")
If fso.FileExists("1.txt") Then
Set openFile=fso.OpenTextFile("1.txt",1,True)
Do Until openFile.AtEndofStream
nr=openFile.ReadLine
zh=Split(nr,",")
Set ws=CreateObject("Wscript.Shell")
ws.run "cmd /c echo md >>0.bat",0
WScript.Sleep 100
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("0.bat")
If objFile.Attributes = objFile.Attributes AND 2 Then
objFile.Attributes = objFile.Attributes XOR 2
End If
WScript.Sleep 100
ws.run "cmd /c echo md "&zh(0)&" >>0.bat",0
WScript.Sleep 100
ws.run "cmd /c echo md "&zh(0)&"\"&zh(1)&" >>0.bat",0
loop
WScript.Sleep 100
ws.run "cmd /c echo del %0 >>0.bat",0
WScript.Sleep 100
ws.run "0.bat",0
end if

1.txt文件格式
123,124
124312,123124

不会 再看看别人怎么说的。

批处理可以这样写(在当前文件夹下创建子文件夹)： @echo off for /f "delims=" %%a in (LIST.txt) do md %%a pause