お世話になります｡ OS:Windows7 PC:64Bit 下記のようなものができないかと悩んでおります｡日頃､ﾌｧｲﾙを多く確認することがあり､全角文字が含んで保管されているも…

お世話になります｡
OS:Windows7
PC:64Bit

下記のようなものができないかと悩んでおります｡
日頃､ﾌｧｲﾙを多く確認することがあり､全角文字が含んで保管されている
ものは､半角に修正している1業務を行っております｡

特定のﾌｫﾙﾀﾞｰに入っているﾌｧｲﾙ名を半角にするようなVBSはありませんか
※ぐぐってみたのですが､ﾌﾟﾛｸﾞﾗﾑの知識が乏しいため､ﾜｰﾄﾞが思いつかづに
見つかりませんでした｡

可能であれば､このようなﾌﾟﾛｸﾞﾗﾑで実現できるよとの返信があると嬉しいです｡
お忙しいとは思いますが宜しくお願い致します｡

VBS じゃないですけど､これ､使えないでしょうか｡

Flexible Renamer

文字種の変換
大文字と小文字､全角と半角､ひらがなとｶﾀｶﾅといった相互変換を行うためのﾒﾆｭｰ｡新旧のﾌｧｲﾙで命名ﾙｰﾙが徹底されていない場合に便利だ｡拡張子に適用されない設定がきちんと用意されているのが嬉しい｡
複数のﾌｧｲﾙ名をまとめて変更できる｢Flexible Renamer｣｜今すぐ役立つ！ITｻｰﾋﾞｽ＆ﾂｰﾙｽﾞ｜てくらぼ｜ﾊﾟｿﾅﾃｯｸ(PASONA TECH)

追記です｡

もし､可能なら､将来的にﾌﾟﾛｸﾞﾗﾑの拡張も考えているので､VBSで教えて
頂けないでしょうか

こんな感じでしょうか｡

Set fso = CreateObject("Scripting.FileSystemObject")

For Each f in fso.GetFolder(".").Files
 han_name = zen2han(f.Name)
 If f.Name <> han_name Then
 f.Name = han_name
 End If
Next

Set fso = Nothing

Function zen2han(byval text)
 ...
End Function

zen2han 関数は､こちらの中身をﾍﾟﾀｯと｡
http://qiita.com/asterisk9101/items/eaa06c56db64897f4fd7

ｶﾚﾝﾄﾃﾞｨﾚｸﾄﾘにあるﾌｧｲﾙが対象です｡
全角を半角に直したときに､同じ名前のﾌｧｲﾙがないのが前提です｡