CALENDAR
Sun Mon Tue Wed Thu Fri Sat
1234567
891011121314
15161718192021
22232425262728
293031    
<< July 2018 >>
SELECTED ENTRIES
CATEGORIES
ARCHIVES
CLOCK
MOBILE
qrcode
PROFILE
RECENT COMMENTS
RECENT TRACKBACK
OTHERS

だめぽブログ

tacoさんの暇つぶしブログ
<< 近代のシンフォニスト | main |
ファイル名に欧州言語系のヘンテコ文字が含まれて非Unicode系ソフトで読めなくて(略
クラシック音楽あるあるかも知れないんだが、CDからリップした音声ファイル。
ファイル名が曲名になっちゃうものもあったりして、日本語ドイツ語フランス語が混在(; ・`д・´)
日本語と英語以外受け付けない古めのソフトウェアだと、この手のファイルはファイルすら読み込めない。
一時は手でちょっとずつリネームしてたんだが、さすがに七面倒臭いことこの上ない!!
大変困った挙げ句いくつかリネームソフトを試しても駄目だったので VBS スクリプトを作成した(๑•̀ㅂ•́)و✧
Dim FSO
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
arg = WScript.Arguments(0)
files FSO.GetFolder(arg)
Set FSO = Nothing

Sub files(ByVal objFolder)
    For Each objSubFolder In objFolder.SubFolders
        files objSubFolder
    Next
    For Each objFile In objFolder.files
        set objFile = FSO.GetFile(objFile)
        ren = FRename(objFile.Name)
        If Not ren = objFile.Name Then
            objFile.Name = ren
        End If
    Next
End Sub

Function FRename(fname)
    Dim rename
    rename = fname
    rename = Replace(rename," ","_")
    rename = Replace(rename,"Á","A")
    rename = Replace(rename,"É","E")
    rename = Replace(rename,"Í","I")
    rename = Replace(rename,"Ó","O")
    rename = Replace(rename,"Ú","U")
    rename = Replace(rename,"Ü","U")
    rename = Replace(rename,"á","a")
    rename = Replace(rename,"é","e")
    rename = Replace(rename,"í","i")
    rename = Replace(rename,"ó","o")
    rename = Replace(rename,"ú","u")
    rename = Replace(rename,"ü","u")
    rename = Replace(rename,"Ñ","N")
    rename = Replace(rename,"ñ","n")
    FRename = rename
End Function


拡張子を VBS にして、Unicode形式で保存。
VBS ファイルに対象フォルダをドラッグ&ドロップで置換。
※動作は保証しません。
| Posted by tacoさん | 15:28 | comments(0) | trackbacks(0) |
スポンサーサイト
| Posted by スポンサードリンク | 15:28 | - | - |









http://invalid.jugem.jp/trackback/87