vbsで正規表現を使ってリネーム

こっちは正規表現でVBscriptを使ってのリネーム。
拡張子があれば拡張子も含んでしまいます。
ファイルやフォルダの入っているフォルダのパスを入力、またはD&D。
次に正規表現を使って検索文字列を、その次に置換後の文字列を。
一箇所、set objdir = nothing　を入れてますが
単に付けた方がいい気がしただけ。
set param=wscript.arguments 　　if param.count=0 then 　　　　 dpath=inputbox("Directory Path") 　　　　　　if isempty(dpath) then wscript.quit 　　end if do while true 　　moji1=inputbox("検索文字") 　　　　if isempty(moji1) then wscript.quit 　　moji2=inputbox("置換文字") 　　　　if isempty(moji2)=false then exit do loop set sac=createobject("shell.application") set sfo=createobject("scripting.filesystemobject") set reg=new regexp reg.pattern=moji1 　　if param.count>0 then 　　　　for p=0 to param.count-1 　　　　　　if sfo.folderexists(param(p)) then rename(param(p)) 　　　　next 　　else 　　　　if sfo.folderexists(dpath) then rename(dpath) 　　end if wscript.echo "終了" sub rename(dp) 　　set objdir=sac.namespace(dp).items 　　for i=0 to objdir.count-1 　　　　oldname=objdir.item(i).name 　　　　newname=reg.replace(oldname,moji2) 　　　　　　if sfo.fileexists(objdir.item(i).path) _ 　　　　　　　　then sfo.movefile objdir.item(i).path,sfo.buildpath(dp,newname) _ 　　　　　　　　else sfo.movefolder objdir.item(i).path,sfo.buildpath(dp,newname) 　　next 　　set objdir=nothing end sub
07/12/8
"shell.application"を使わなくても、フォルダの中を検索できる事を知ったので書き直してみた。
こっちはD&Dしたフォルダの中のファイル、フォルダを正規表現でリネーム。
"filesystemobject"の場合、隠しファイルも検索できるようだけど
"shell.application"も何か引数を付ければできるのかな？
option explicit on error resume next dim param, sfo, reg dim str_a, str_b, i, cf, fn, cd, dn set param = wscript.arguments if param.count > 0 then str_a = inputbox("検索文字","置換リネーム") if isempty(str_a) then wscript.quit str_b = inputbox("置換文字","置換リネーム") if isempty(str_b) then wscript.quit set sfo = createobject("scripting.filesystemobject") set reg = new regexp reg.pattern = str_a for i = 0 to param.count - 1 if sfo.folderexists(param(i)) then set cf = sfo.getfolder(param(i)).files for each fn in cf fn.name = reg.replace(fn.name, str_b) next set cd = sfo.getfolder(param(i)).subfolders for each dn in cd dn.name = reg.replace(dn.name, str_b) next end if next end if set param = nothing set sfo = nothing set reg = nothing