非シフト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