VBscriptでフォルダ作成２

リンク元を見るとvbsでフォルダ作成の検索が多いこと多いこと。
以前、VBscriptでフォルダ作成に挑戦から
新しく覚えた記述法もあるので、改めて書き直してみました。
いつものように、知性を全く感じさせない変数名で仕上がっております。
前と一緒で、作成するパスのリストが書かれたファイルのパスを入力です。
一応テストして作成はされました。
option explicit dim o_sfo, o_open dim filepath, mdpath, i, en, mkp, dc filepath = inputbox("ファイルのパスを入力") if isempty(filepath) then wscript.quit set o_sfo = createobject("scripting.filesystemobject") on error resume next set o_open = o_sfo.opentextfile(filepath) if err.number = 0 then mdpath = split(o_open.readall, vbnewline) for i = 0 to ubound(mdpath) if mdpath(i) = "" then exit for if o_sfo.folderexists(mdpath(i)) = false then mk_dir(mdpath(i)) next msgbox "完了", vbyes, "確認" end if sub mk_dir(fp) en = split(fp, chr(92)) mkp = en(0) for dc = 1 to ubound(en) mkp = mkp & chr(92) & en(dc) if o_sfo.folderexists(mkp) = false then o_sfo.createfolder(mkp) next end sub set o_sfo = nothing set o_open = nothing