takatada回答ポイントなし

お世話になります。

OS:Windows7
PC:64Bit

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

特定のフォルダーに入っているファイル名を半角にするようなVBSはありませんか
※ぐぐってみたのですが、プログラムの知識が乏しいため、ワードが思いつかづに
見つかりませんでした。

可能であれば、このようなプログラムで実現できるよとの返信があると嬉しいです。
お忙しいとは思いますが宜しくお願い致します。

ログインして回答する

みんなの回答

a-kuma32015/10/16 12:11:15
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

カレントディレクトリにあるファイルが対象です。
全角を半角に直したときに、同じ名前のファイルがないのが前提です。
スター
- 2件のコメントを見る
- takatada 2015/10/16 13:18:23
  
  ありがとうございました。
  こんな便利なツールがあったんですね、
  ※このツールは、VBSが見つかるまでの間、利用させて頂きたいと思います。
  
  もし、可能なら、将来的にプログラムの拡張も考えているので、VBSで教えて
  頂けないでしょうか
  
   スター
- a-kuma3 2015/10/16 14:33:54
  
  もし、可能なら、将来的にプログラムの拡張も考えているので、VBSで教えて
  頂けないでしょうか
  回答に追記しました。
  
  スター