Hi,
jetzt kann AutoIt auch Dateien umbenennen, ohne Klimmzüge..
Anmerkungen:
Der alte Dateiname muß mit Pfad angegeben werden
Der neue Dateiname muß ohne Pfad angegeben werden
EINE Datei kann nur im selben Pfad einen neuen Namen erhalten
[Edit]
Ooops, niemals spät nachts noch Code posten..
Jetzt geht es aber
Happy Renaming..
Gruß
ytwinky
Und hier das immer wieder gern gesehene [ spoiler ][ code ]..[ /code ][ /spoiler ] Duo..
(natürlich ohne spaces)
Spoiler anzeigen
Code
; Dateien umbenennen V2
Dim $TestArray[2]=[" nicht", ""]
$AlterName="J:\Tmp\TestAlt.Txt"
$NeuerName="TestNeu.Txt"
MsgBox(4096, "Umbenennen", "Datei " &$AlterName &$TestArray[_FileRename($AlterName, $NeuerName)] &" in " &$NeuerName &" umbenannt!")
Func _FileRename($FromName, $ToName)
If $FromName="" Or $ToName="" Then Return 0
$Path=StringMid($FromName, 1, StringInstr($FromName, Chr(92), 0, -1)) ;StringReverse
$NewName=StringMid($ToName, StringInstr($ToName, Chr(92), 0, -1)+1) ;StripPath
If FileExists($FromName) Then
If FileExists($Path &$NewName) Then
MsgBox(4096, "Renaming Error..", "File " &$Path &$NewName &" already exists..")
Return 0
Else
$Fso=ObjCreate("Scripting.FileSystemObject")
$Datei=$Fso.GetFile($FromName)
$Datei.Name=$NewName
$Fso=0
$Datei=0
Return 1
EndIf
Else
MsgBox(4096, "Renaming Error..", "File " &$FromName &" not found..")
Return 0
EndIf
EndFunc
Alles anzeigen