rename_script_generator.vbs

Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim fso, startFolder, folder, files, lines

Set fso = CreateObject("Scripting.FileSystemObject")
startFolder = fso.GetAbsolutePathName(".")
Set folder = fso.GetFolder(startFolder)

Set files = folder.Files

lines = ""
For Each file in files
    If InStr(file.Name,".jpg") > 0 Then
        lines = lines & "ren " & file.Name & " " & file.Name & vbCrLf
    End If
Next

Set batchFile = fso.OpenTextFile(startFolder & "\rename.bat", ForWriting, True)
batchFile.Write(lines)
batchFile.Close
MsgBox "You can now check and edit " & startFolder & "\rename.bat.", vbOKOnly, "Success."