[VBScript] 同じフォルダにある複数ファイルの頭の特定文字をだけを削除する

同じフォルダにある『ScreenShot_XXXX.XX』（※XXXX.XXは日付）という複数ファイルを『XXXX.XX』という風に頭の『ScreenShot_』だけを削除するVBScriptが作りたいのですが、コードはどのようにすれば実現できるでしょうか。

ご存じの方、アドバイスをお願いします。

No.1 ベストアンサー 回答者： WindFaller 回答日時： 2015/08/24 11:31

こんにちは。

本当は、shell でしたほうがよいとは思ったものの、VBScript という括りの中なら、このようにすればよいかと思いました。

Dim myFolder
Dim objFS
Dim objFolder
Dim objfile
Dim i , j
Dim fn
Set objWshShell = CreateObject("WScript.Shell")
myFolder = objWshShell.CurrentDirectory
Set objFS = CreateObject("Scripting.FilesystemObject")
Set objFolder = objFS.GetFolder(myFolder)
On Error Resume Next
For Each objfile In objFolder.Files
fn =objfile.Name
i = InStr(1, fn, "ScreenShot_", 1)
' j = InStr(1, right(fn,3), "jpg", 1) 'jpgの場合
If i > 0 Then 'If i > 0 And j>0 Then ''拡張子をみる場合。
objfile.Name = Replace(fn, "ScreenShot_","")
End If
Next

この回答へのお礼

WindFallerさん、できました。
ありがとうございました。
こういうのをサクってできてしまうプログラマはやっぱりカッコいいですね。

お礼日時：2015/08/26 14:07