VBScriptでファイル、フォルダを正規表現を使って振り分ける

以前UWSCでキーワードにマッチしたファイル、フォルダを振り分けるを書いたけど、そのVBScript版を書いた。
UWSCはキーワードにワイルドカードを使ってファイル、フォルダの数を検索できるけれど
WSHだと出来なさそうなので、面倒くさいけど正規表現でやった。
その代わり、UWSCの方はまとめて移動させていたので、移動先に一つでも同名のものがあると
そのキーワードでの移動はしないで次に移っていたけれど
こっちはキーワードで個別にチェックするので、移動先に同名ファイル、フォルダがあっても
終了せずにそのまま移動を続けるという良い意味での副作用があった。
UWSCのと同様、移動先が存在しない場合は勝手にフォルダを作成。

設定ファイルの内容はUWSC版と一緒で
キーワード[カンマ]移動元パス[カンマ]移動先パス
正規表現に詳しくないので、簡単な例しか挙げられないけど
頭にaが付くテキストファイルをaaaからbbbに移動。
名前にbbを含んでいるdatファイルをcccからdddに移動の場合

^a.*\.txt,C:\aaa,C:bbb
bb.*\.dat,C:\ccc,C:\ddd

設定ファイルの名前、拡張子は適当に（拡張子は無くても構わない）
その設定ファイルを、下記のvbsファイルがあるディレクトリに
"user"というフォルダを作成して、その中に置く。（名前を変更する場合は2行目の"user"を変更）

パラメータにそのファイル名をつけて下記のvbsファイルを起動すると
そのファイルの設定で振り分けを開始。
パラメータが無い場合は設定ファイルを選択するダイアログが出るから、それで設定ファイルを選択。

注意する点
拡張子を指定しないキーワードの場合、マッチしていたらファイルもフォルダも見境なく振り分ける。
5、6回しかテストしてないので何が起こるかわからない。

option explicit const folder_name = "user" dim param, app, sfo, reg, cd, bff, ofile, ofolder dim u_dir, s_file, read_ini, i, kp, kw, path_a, path_b dim m_file, dp, md, m, file_i, folder_i on error resume next set param = wscript.arguments set app = createobject("shell.application") set sfo = createobject("scripting.filesystemobject") set reg = new regexp cd = createobject("wscript.shell").currentdirectory u_dir = sfo.buildpath(cd, folder_name) if sfo.folderexists(u_dir) = false then sfo.createfolder(u_dir) if param.count > 0 then s_file = sfo.buildpath(u_dir, param(0)) if sfo.fileexists(s_file) = false then msgbox "ファイルが見つかりません", vbyes, "確認" wscript.quit end if else set bff = app.browseforfolder(0, "設定ファイルの選択", &h4000, u_dir) if not bff is nothing then if sfo.folderexists(bff) then wscript.quit s_file = sfo.buildpath(u_dir, bff) else wscript.quit end if end if read_ini = split(sfo.opentextfile(s_file).readall, vbnewline) for i = 0 to ubound(read_ini) if read_ini(i) = "" then exit for kp = split(read_ini(i), ",") kw = kp(0) path_a = kp(1) path_b = kp(2) set ofile = sfo.getfolder(path_a).files set ofolder = sfo.getfolder(path_a).subfolders reg.pattern = kw for each file_i in ofile if reg.test(file_i.name) then if sfo.folderexists(path_b) = false then mk_dir(path_b) sfo.movefile file_i.path, path_b & chr(92) end if next for each folder_i in ofolder if reg.test(folder_i.name) then if sfo.folderexists(path_b) = false then mk_dir(path_b) sfo.movefolder folder_i.path, path_b & chr(92) end if next next msgbox "完了", vbyes, "確認" sub mk_dir(mdpath) dp = split(mdpath, chr(92)) md = dp(0) for m = 1 to ubound(dp) md = md & chr(92) & dp(m) if sfo.folderexists(md) = false then sfo.createfolder(md) next end sub set param = nothing set app = nothing set sfo = nothing set cd = nothing set bff = nothing set ofile = nothing set ofolder = nothing

08/11/02 更新

JScriptで書き直しました、拡張子はjsです。使い方や設定方法はVBScriptと一緒ですが
こっちは正規表現でなくワイルドカード(*)と?で設定します(やっぱややこしいからw）
VBScritpと違って設定はタブスペースで区切ります。

*.jpg[tabスペース]移動元パス[tabスペース]移動先パス
*.*[tabスペース]移動元パス[tabスペース]移動先パス

のようによくある方法。

設定ファイルはタブスペースで区切るようにした。

08/11/09 修正

余計なコードを消し忘れて無意味なことしてた。