Versuche es mal mit VBScript!

• das angegebene Script in eine Textdate kopieren

• Dateiendung umbenennen in .vbs

• in Zeile 3 den Verzeichnispfad eintragen

• speichern und

• mit Doppelklick ausführen

Script:

dim objFs, strPath, oFolder, oFile, i, strRev, intPos, strPrefix, strPostfix, newName

strPath = "hier den Pfad zum Verzeichnis eintragen, dass die Dateien enthält"

Set objFs = CreateObject("Scripting.FileSystemObject")
Set oFolder = objFs.GetFolder(strPath)
i=0
For Each oFile In oFolder.Files
  i=i+1
  strRev=strReverse(oFile)
  intPos=instr(1,strRev,".")
  strPrefix=strReverse(mid(strRev,intPos+1))
  strPostfix=strReverse(left(strRev,intPos))
  newName=strPrefix & " (" & i & ")" & strPostfix
  objFs.MoveFile oFile, NewName
Next
set objFs=Nothing