非シフトJIS文字のファイル名を変更する。
フォルダをドロップすると、その中のファイル名の非シフトJIS文字をシフトJIS文字に変換します。シフトJIS文字に変換できない非シフトJIS文字は_に変更します。
xFileName.VBS フォルダ
Set fso=CreateObject("Scripting.FileSystemObject")
For Each Folder In WScript.Arguments
For Each File In fso.GetFolder(Folder).Files
FileName=xFileName(File.Name)
If FileName<>File.Name Then
File.Name=Replace(FileName,"?","_")
End If
Next
Next
Function xFileName(FileName)
For k=1 To Len(FileName)
xFileName=xFileName & Chr(Asc(Mid(FileName,k,1)))
Next
End Function
« エクスプローラのカラムヘッダを表示する。 | トップページ | ショートカット、インターネットショートカットをリセットする。 »