2017年11月
      1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30    
無料ブログはココログ

« エクスプローラのカラムヘッダを表示する。 | トップページ | ショートカット、インターネットショートカットをリセットする。 »

2012年7月 8日 (日)

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

« エクスプローラのカラムヘッダを表示する。 | トップページ | ショートカット、インターネットショートカットをリセットする。 »