Kopieren mit Umsch+F5

[SanskritFritz]

2SiBu
Gerne
AutoHotkey mag ich viel mehr, wegen autotext und hotkeys, und sieh da, SendMsg

[SiBu]

Nochmal ich
Mit AutoHotkey sieht es jetzt so aus:

Code: Select all

PostMessage, 1075, 2008, 0,, ahk_class TTOTAL_CMD ;copy
PostMessage, 1075, 2009, 0,, ahk_class TTOTAL_CMD ;paste
Send, {NumpadAdd}
Send, {DEL}
Send, >Kopie von
Send, {ENTER}
Send, ^m
Send, {F2}
Send, {DOWN}
Send, {ENTER}
Send, ^a
Send, [N11-266]-ergänzung
Send, {ENTER}
WinClose, Mehrfach-Umbenenn-Tool

Funktioniert auch einwandfrei. Nur will sich das MUT-Fenster nicht schliessen lassen. Ausserdem ist mir aufgefallen, dass die Namen der markierten Dateien beim Aufruf des MUT per PostMessage nicht an dasselbe übergeben werden.

[SanskritFritz]

Ausserdem ist mir aufgefallen, dass die Namen der markierten Dateien beim Aufruf des MUT per PostMessage nicht an dasselbe übergeben werden.

????!!! Interessant, werd ich probieren.

Statt

Code: Select all

WinClose, Mehrfach-Umbenenn-Tool 

sollte vielleicht

Code: Select all

WinClose, ahk_class TMultiRename

gehn, und das ist sprachen-unabhängig.

[SiBu]

Statt

Code: Select all

WinClose, Mehrfach-Umbenenn-Tool 

sollte vielleicht

Code: Select all

WinClose, ahk_class TMultiRename

gehn, und das ist sprachen-unabhängig.

Geht leider auch nicht.

edit: mit

Code: Select all

SetKeyDelay, 50

vor Beginn des Umbenennens klappt es jetzt.

Vielen Dank nochmals für deine Hilfe

[SanskritFritz]

Gerne

[SiBu]

Warnung: Obiges Skript kann einen in Teufels Küche bringen!
Das hier ist sicherer und funktioniert besser:

Code: Select all

;SetKeyDelay, 111

InputBox, InputErweiterung, Suffix?, Dateinamen erweitern mit?,,,,,,,,Kopie
;Send, {ENTER}
if ErrorLevel <> 0
{
Exit
}

KopieCounter = 1

PostMessage, 1075, 3100, 0,, ahk_class TTOTAL_CMD ;cm_CopySamepanel=3100
Send, *.*.üöTä376
Send, {ENTER}

WinWaitClose, ahk_class TDLG2FILEACTIONMIN

PostMessage, 1075, 521, 0,, ahk_class TTOTAL_CMD ;cm_SpreadSelection=521
Send, {DEL}
Send, *.üöTä376
Send, {ENTER}

PostMessage, 1075, 2400, 0,, ahk_class TTOTAL_CMD ;cm_MultiRenameFiles=2400
Send, {F2}
Send, {DOWN}
Send, {ENTER}

Send, {TAB}
Send, {DEL}
Send, {TAB}
Send, (.*)\.(.*)$
Send, {TAB}
Send, $1(%InputErweiterung%%KopieCounter%).$2
Send, {TAB}
Send, {SPACE}
Send, {ENTER}
WinWaitClose, ahk_class TDLG2FILEACTIONMIN

Error?:
IfWinExist, ahk_class #32770
{
	EnvAdd, KopieCounter, 1
	Send, {SPACE} ;click ok
	ControlFocus, Edit2, ahk_class TMultiRename
	ControlSetText, Edit2, $1(%InputErweiterung%%KopieCounter%).$2, ahk_class TMultiRename
	Send, {DEL}
	Send, $
	Send, {ENTER}
	WinWaitClose, ahk_class TDLG2FILEACTIONMIN
	Goto, Error?
}

WinClose, ahk_class TMultiRename

MsgBox, 36, Kopierte Dateien markieren?, Kopierte Dateien markieren?
IfMsgBox, Yes
{
	PostMessage, 1075, 521, 0,, ahk_class TTOTAL_CMD ;cm_SpreadSelection=521
	Send, {DEL}
	Send, *(%InputErweiterung%%KopieCounter%)*
	Send, {ENTER}
}

edit: nochmals etwas überarbeitet