Zur Abwechslung mal wieder ein simples Autohotkey-Skript- Es verschiebt ausgewählte Bilder bspw. von einer SD-Karte auf die Festplatte und benennt die Bilder in aussagekräftigere Namen um:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 | ; zu verschiebende Dateien auswählen FileSelectFile, files, M3 ; Auswahl des ZielVerzeichniss FileSelectFolder, ZielFolder, , 0, Bitte den Zielordner auswählen ; Bilderpräfix eingeben InputBox, BilderPrefix, Bilder umbenennen, Präfix für die Bilder eingeben... ; Eingabe des Namens für den Fotoordner InputBox, FolderName, Ordnernamen eingeben, Name des neuen Ordners:, , , , , , , , [%A_YYYY%-%A_MM%-%A_DD%] ; erstelle den Ordner FileCreateDir, %ZielFolder%\%FolderName% Zielpfad = %ZielFolder%\%FolderName% if files = { MsgBox, Auswahl der zu verschiebenden Dateien abgebrochen! return } ; Counter wird benötigt, damit die umbenannten Dateien mit 1 beginnen! Counter = 1 ; parse die selektierten Dateien ; Verschiebe die Dateien ins Zielverzeichnis Loop, parse, files, `n { ; in der ersten Zeile steht das QuellVerzeichnis if a_index = 1 QuelleFolder=%A_LoopField% FileMove, %QuelleFolder%\%A_LoopField%, %Zielpfad% } ; benenne Bilder um Loop, %Zielpfad%\*.jpg { ;den vorderen Teil (RIMG) abschneiden und nur die Bildnummer StringTrimLeft, BilderNummer, A_LoopFileName, 4 MsgBox, %Zielpfad%\%BilderPrefix%%BilderNummer% FileMove, %Zielpfad%\%A_LoopFileName%, %Zielpfad%\%BilderPrefix%%BilderNummer% } return |
Klasse, noch ein AutoHotkey-Fan. Dein Script werde ich auf jeden Fall mal testen.
Es vereinfacht mir den Digitakamera-auf-Festplatte Workflow.
Aber als sonderlich ausgereift würde ich das nicht bezeichnen
Aber für meinen Hausgebrauch reicht es mir aus.