お世話になります。

OS:Windows7
PC:64Bit

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

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

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

回答の条件
  • 1人5回まで
  • 13歳以上
  • 登録:2015/10/16 11:27:16
  • 終了:2015/10/23 11:30:04

回答(1件)

id:a-kuma3 No.1

a-kuma3回答回数4585ベストアンサー獲得回数19252015/10/16 12:11:15

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

文字種の変換

大文字と小文字、全角と半角、ひらがなとカタカナといった相互変換を行うためのメニュー。新旧のファイルで命名ルールが徹底されていない場合に便利だ。拡張子に適用されない設定がきちんと用意されているのが嬉しい。
http://www.pasonatech.co.jp/techlab/service_tools/images/rep20-im4.jpg

複数のファイル名をまとめて変更できる「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

カレントディレクトリにあるファイルが対象です。
全角を半角に直したときに、同じ名前のファイルがないのが前提です。

id:takatada

ありがとうございました。
こんな便利なツールがあったんですね、
※このツールは、VBSが見つかるまでの間、利用させて頂きたいと思います。

もし、可能なら、将来的にプログラムの拡張も考えているので、VBSで教えて
頂けないでしょうか

2015/10/16 13:18:23
id:a-kuma3

もし、可能なら、将来的にプログラムの拡張も考えているので、VBSで教えて
頂けないでしょうか

回答に追記しました。

2015/10/16 14:33:54

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません