Hallo,
hab ein Tool geschrieben mit dem man viele Dateien auf einmal umbenennen kann. Funktioniert auch, aber die Zahl Hintendran ist komisch.
Bei mir ist das immer so. Ich nen jetzt ca. 40 Bilder um, dann fängt das so an:
Skiurlaub_1, Skiurlaub_10, Skiurlaub_11...
Wenn ich die dann nochma umnenne steht das da:
Skiurlaub_100, Skiurlaub_101, Skiurlaub_102...
Und beim dritten mal das:
Skiurlaub_1000, Skiurlaub_1001, Skiurlaub_1002
Spoiler anzeigen
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Rename", 153, 231, 652, 344)
GUISetBkColor(0x808080)
$Input1 = GUICtrlCreateInput("", 16, 40, 121, 21)
$Input2 = GUICtrlCreateInput("", 48, 96, 65, 21)
$Label1 = GUICtrlCreateLabel("Endung ", 56, 72, 44, 17)
$Label2 = GUICtrlCreateLabel("Pfad zum Ordner ", 40, 8, 86, 17)
$Button1 = GUICtrlCreateButton("Umbennen", 40, 192, 75, 25, 0)
$Input3 = GUICtrlCreateInput("", 16, 160, 121, 21)
$Label3 = GUICtrlCreateLabel("Neuer Name", 48, 128, 64, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $n=1
[/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$pfad=GUICtrlRead( $Input1 )
$endung=GUICtrlRead( $Input2 )
$name=GUICtrlRead( $Input3 )
$search = FileFindFirstFile($pfad&"\*."&$endung)
If $search = -1 Then
MsgBox(0, "Error", "Keine Datei mit der Endung "&$endung&" in "&$pfad&" gefunden")
Exit
EndIf
While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop
_Umbenennen($file)
$n+=1
WEnd
$n=1
EndSwitch
WEnd
Func _Umbenennen($sFile)
FileMove ($pfad&"\"&$sFile, $pfad&"\"&$name&"_"&$n&"."&$endung, 1)
EndFunc