; Erstellt: 2009-01-19
; Problem: verschieben ok, Dateicounter unverändert


; zu verschiebende Dateien auswählen
FileSelectFile, files, M3  ; M3 = Multiselect existing files.

; 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