@HolgerK/@Dalai: ... genial!
Nachdem mir mittlerweile doch etwas Bedenken gekommen sind und ich das Kopieren und Umbenennen nur in bestimmten Fällen nutzen möchte, lasse ich die Option doch bei "Benutzer fragen". Für die Fälle, wo ich es bewußt anwenden möchte, habe ich eine Autohotkey-Routine geschrieben.
Wer Interesse hat:
Code: Select all
#IfWinActive, ahk_class TTOTAL_CMD
^F5:: ; Strg-F5 (kopiert Datei zu "*.[0-...].*")
Clipboard := ""
PostMessage, 1075, 2018 ; interner TC-Befehl (Dateinamen mit Pfad in Zwischenablage)
ClipWait, 2 ; warten (max. 2 Sekunden), bis Clipboard gefüllt ist
if ErrorLevel ; wenn nichts im Clipboard ...
Return ; ... beenden
Erweiterung := substr(Clipboard, instr(Clipboard, ".", 0, 0) + 1) ; Dateinamenserweiterung holen
Clipboard := RegExReplace(Clipboard, "(.+)\..+", "$1") ; Pfad und Dateiname ohne Erweiterung
MyDatei = %Clipboard% ; Pfad und Dateiname ohne Erweiterung merken
Loop
{
Zaehler++ ; Zaehler hochzählen
IfExist, %MyDatei%.%Zaehler%.%Erweiterung% ; "Datei.Zähler.Erweiterung" bereits vorhanden ?
Continue ; dann weiter
Clipboard = %MyDatei%.%Zaehler%.%Erweiterung% ; wenn nicht vorhanden: speichern ...
Break ; ... und Loop abbrechen
}
PostMessage, 1075, 3100 ; interner TC-Befehl (Datei im gleichen Fenster kopieren)
send ^v{Enter}
Return
#IfWinActive
Danke an das Forum für eure Beteiligung - Viele Grüße
Lucky Joe