VBS を使ったファイル名置換スクリプト

前々から書こうと思っていたのを (気が向いたので) やっと書いた。



【 準備 】
下の内容を、適当なテキストエディタに貼り、拡張子を VBS にして保存してあげる。
スクリプト内部で、strReplaceRules に全角英数字を半角英数字に置換するように記述してあるので、必要に応じてルールを追加するといい。
strReplaceRules の上にあるルール (下のコードだと「全角の A (Ａ) を半角の A (A)」から。コードは「Array("Ａ", "A")」。) から順に処理されるので、自身で追加する場合には、上の方に追加することをオススメする。

【 使い方 】
ファイル名置換したいファイルを保存した VBS ファイルにドラッグ＆ドロップしてあげればオシマイ。

' ファイル名置換スクリプト
' Copyright (C) 2015 tag. All rights reserved.

Option Explicit

' 置換ルールの定義 (上から順に処理)
Dim strReplaceRules
strReplaceRules = Array( _
Array("Ａ", "A"), _
Array("Ｂ", "B"), _
Array("Ｃ", "C"), _
Array("Ｄ", "D"), _
Array("Ｅ", "E"), _
Array("Ｆ", "F"), _
Array("Ｇ", "G"), _
Array("Ｈ", "H"), _
Array("Ｉ", "I"), _
Array("Ｊ", "J"), _
Array("Ｋ", "K"), _
Array("Ｌ", "L"), _
Array("Ｍ", "M"), _
Array("Ｎ", "N"), _
Array("Ｏ", "O"), _
Array("Ｐ", "P"), _
Array("Ｑ", "Q"), _
Array("Ｒ", "R"), _
Array("Ｓ", "S"), _
Array("Ｔ", "T"), _
Array("Ｕ", "U"), _
Array("Ｖ", "V"), _
Array("Ｗ", "W"), _
Array("Ｘ", "X"), _
Array("Ｙ", "Y"), _
Array("Ｚ", "Z"), _
Array("ａ", "a"), _
Array("ｂ", "b"), _
Array("ｃ", "c"), _
Array("ｄ", "d"), _
Array("ｅ", "e"), _
Array("ｆ", "f"), _
Array("ｇ", "g"), _
Array("ｈ", "h"), _
Array("ｉ", "i"), _
Array("ｊ", "j"), _
Array("ｋ", "k"), _
Array("ｌ", "l"), _
Array("ｍ", "m"), _
Array("ｎ", "n"), _
Array("ｏ", "o"), _
Array("ｐ", "p"), _
Array("ｑ", "q"), _
Array("ｒ", "r"), _
Array("ｓ", "s"), _
Array("ｔ", "t"), _
Array("ｕ", "u"), _
Array("ｖ", "v"), _
Array("ｗ", "w"), _
Array("ｘ", "x"), _
Array("ｙ", "y"), _
Array("ｚ", "z"), _
Array("０", "0"), _
Array("１", "1"), _
Array("２", "2"), _
Array("３", "3"), _
Array("４", "4"), _
Array("５", "5"), _
Array("６", "6"), _
Array("７", "7"), _
Array("８", "8"), _
Array("９", "9"), _
Array("　", " "))

' FSO の取得
Dim objFso, strTargetFile
Set objFso = CreateObject("Scripting.FileSystemObject")

' 引数の取得
Dim objArgs, idxArgs
Set objArgs = WScript.Arguments

' 引数毎の処理
For idxArgs = 0 To objArgs.Count - 1
  ' ファイルの取得
  Set strTargetFile = objFso.GetFile(WScript.Arguments(idxArgs))

  ' 置換
  Dim i
  For i = LBound(strReplaceRules) To UBound(strReplaceRules)
    If InStr(strTargetFile.Name, strReplaceRules(i)(0)) > 0 Then
      strTargetFile.Name = Replace(strTargetFile.Name, strReplaceRules(i)(0), strReplaceRules(i)(1))
    End If
  Next
Next

' 終了処理
Set strReplaceRules = Nothing
Set objFso = Nothing
Set strTargetFile = Nothing
Set objArgs = Nothing

---

---

オマケ

コマンドプロンプト (バッチファイル) から起動するバージョン。説明は省略。

:: ファイル名置換スクリプト (ファイル取り込み部)
:: Copyright (C) 2015 tag. All rights reserved.

@echo off

cd "%~dp0"

set VBSFilePath="%~dp0renamer.vbs"

:start
if "%~1"=="" goto processend
if not "%~x1" == ".mp4" goto next

:process
@echo ==================================================
@echo target: "%~1"
CScript %VBSFilePath% "%~1"

:next
shift
goto start

:processend
::pause > nul

' ファイル名置換スクリプト (replace.vbs)
' Copyright (C) 2015 tag. All rights reserved.
' 要「ファイル名置換スクリプト (ファイル取り込み部)」

Option Explicit

' 置換ルールの定義
Dim strReplaceRules
strReplaceRules = Array( _
Array("Ａ", "A"), _
Array("Ｂ", "B"), _
Array("Ｃ", "C"), _
Array("Ｄ", "D"), _
Array("Ｅ", "E"), _
Array("Ｆ", "F"), _
Array("Ｇ", "G"), _
Array("Ｈ", "H"), _
Array("Ｉ", "I"), _
Array("Ｊ", "J"), _
Array("Ｋ", "K"), _
Array("Ｌ", "L"), _
Array("Ｍ", "M"), _
Array("Ｎ", "N"), _
Array("Ｏ", "O"), _
Array("Ｐ", "P"), _
Array("Ｑ", "Q"), _
Array("Ｒ", "R"), _
Array("Ｓ", "S"), _
Array("Ｔ", "T"), _
Array("Ｕ", "U"), _
Array("Ｖ", "V"), _
Array("Ｗ", "W"), _
Array("Ｘ", "X"), _
Array("Ｙ", "Y"), _
Array("Ｚ", "Z"), _
Array("ａ", "a"), _
Array("ｂ", "b"), _
Array("ｃ", "c"), _
Array("ｄ", "d"), _
Array("ｅ", "e"), _
Array("ｆ", "f"), _
Array("ｇ", "g"), _
Array("ｈ", "h"), _
Array("ｉ", "i"), _
Array("ｊ", "j"), _
Array("ｋ", "k"), _
Array("ｌ", "l"), _
Array("ｍ", "m"), _
Array("ｎ", "n"), _
Array("ｏ", "o"), _
Array("ｐ", "p"), _
Array("ｑ", "q"), _
Array("ｒ", "r"), _
Array("ｓ", "s"), _
Array("ｔ", "t"), _
Array("ｕ", "u"), _
Array("ｖ", "v"), _
Array("ｗ", "w"), _
Array("ｘ", "x"), _
Array("ｙ", "y"), _
Array("ｚ", "z"), _
Array("０", "0"), _
Array("１", "1"), _
Array("２", "2"), _
Array("３", "3"), _
Array("４", "4"), _
Array("５", "5"), _
Array("６", "6"), _
Array("７", "7"), _
Array("８", "8"), _
Array("９", "9"), _
Array("　", " "))

' FSO の取得
Dim objFso, strTargetFile
Set objFso = CreateObject("Scripting.FileSystemObject")

' ファイルの取得
Set strTargetFile = objFso.GetFile(WScript.Arguments(0))

' 処理前のファイル名
WScript.echo "Rename (before): " & strTargetFile.Name

' 置換
Dim i
For i = LBound(strReplaceRules) To UBound(strReplaceRules)
  If InStr(strTargetFile.Name, strReplaceRules(i)(0)) > 0 Then
    strTargetFile.Name = Replace(strTargetFile.Name, strReplaceRules(i)(0), strReplaceRules(i)(1))
  End If
Next

' 処理後のファイル名
WScript.echo "Rename (after) : " & strTargetFile.Name

' 終了処理
Set strReplaceRules = Nothing
Set objFso = Nothing
Set strTargetFile = Nothing