ＵＷＳＣでフォルダを作成してみた

フォルダを作って、そのフォルダの中にまたフォルダを作る。
いろいろ試したけど、オブジェクトっていうの？
DOSコマンドより、それ使ったほうが軽いし速かった。
下は一つの入力したパスだけの例

dpath = input("作成するパスを入力")
　　if dpath = empty then exit
sfo = createoleobj("scripting.filesystemobject")
count = 2
while pos("\", dpath + "\", count) > 0
　　cen = pos("\", dpath + "\", count)
　　mdp = copy(dpath, 1, cen - 1)
　　　if fopen(mdp+"\", f_exists)=false then sfo.createfolder(mdp)
　　count = count + 1
wend