なんとなくわかってきた？VBscript

Dim宣言だとか、良くわかんないから無し。
UWSCだとDim宣言しないとできないから、とりあえずしてるけど。
下記のvbsは、作成するパスが改行区切りで書かれた、リストのファイルのパスを入力。（ややこしいけど）
だから、数多く作るときには便利。
set xxx = nothing
も、良くわからないし、無くても出来るから無し。
UWSCと違う所は、パスを即座に配列に出来るSplitという関数を使ってること。
UWSCにも連想配列というのがあるけど、配列に変えるまでにちょっと面倒。
Splitのようなもの、そのうちUWSCにも付けてくれるでしょう。
on error resume next lfp=inputbox("ファイルのパスを入力") 　　if isempty(lfp)=false and len(lfp)>0 then 　　　　set sfo=createobject("scripting.filesystemobject") 　　　　set open=sfo.opentextfile(lfp) 　　　　　　if err.number=0 then 　　　　　　　　do until open.atendofstream=true 　　　　　　　　　　dp=open.readline 　　　　　　　　　　　　if sfo.folderexists(dp)=false then call mk_dir(dp) 　　　　　　　　loop 　　　　　　end if 　　　　msgbox "作成を完了",0,"確認" 　　else 　　　　wscript.quit 　　end if sub mk_dir(dirpath) 　　arp=split(dirpath,"\") 　　mdp=arp(0) 　　for i=1 to ubound(arp) 　　　　mdp=mdp&"\"&arp(i) 　　　　　　if sfo.folderexists(mdp)=false then sfo.createfolder(mdp) 　　next end sub