Warum seid ihr hier alle jetzt so unfreundlich ?
Hier mal ein Beispiel für "funkheld" :
Code: Alles auswählen
;Ein kleines ausbaufähiges Beispiel.
;Eine variable Sortierungsmöglichkeit (Vor-/Nachsortierung) und bessere Dateiauswertung kann z.B. evtl. ergänzt werden.
Procedure.b EinfachMalUmbenennen(typ.s = "exe", StdPfad.s = "C:\", name.s = "test") ;Macht alles voll automatisch.
Protected count.i = 1, path.s, file.s, ok.i
path = PathRequester("Bitte den Dateipfad auswählen.", StdPfad)
If path <> ""
If ExamineDirectory(0, path, "*."+typ)
While NextDirectoryEntry(0)
If DirectoryEntryType(0) = #PB_DirectoryEntry_File
file = path + DirectoryEntryName(0)
Debug file
If (DirectoryEntryAttributes(0) = #PB_FileSystem_Archive) Or (DirectoryEntryAttributes(0) = #PB_FileSystem_Compressed) Or (DirectoryEntryAttributes(0) = #PB_FileSystem_Normal)
ok = RenameFile(file, path + name + Str(count) + "." + GetExtensionPart(file))
If Not ok
ProcedureReturn #False
EndIf
count = count + 1
EndIf
EndIf
Wend
FinishDirectory(0)
ProcedureReturn #True
Else
ProcedureReturn #False
EndIf
Else
ProcedureReturn #False
EndIf
EndProcedure
If OpenWindow(0, 100, 200, 290, 200, "Umbenennen")
ButtonGadget(0, 10, 10, 270 , 180, "freundliches Umbenennen")
Repeat
Event = WaitWindowEvent()
If Event = #PB_Event_Gadget
If EventGadget() = 0
sicher = MessageRequester("Huhu!!!", "Das Umbenennen von Dateien kann sehr gefährlich sein, wenn es ungewollt passiert."+#CRLF$+#CRLF$+"Möchten Sie wirklich weitermachen ?"+#CRLF$+#CRLF$+"Sie handeln auf eigene Gefahr!", #MB_SYSTEMMODAL|#PB_MessageRequester_YesNo|#PB_MessageRequester_Warning)
If sicher = #PB_MessageRequester_Yes
;-Kann angepasst werden.
ok = EinfachMalUmbenennen("exe", "D:\tres\programme\", "test")
If ok = #True
MessageRequester("Huhu! Ich bin fertig. :)", "Überprüfen Sie ob alles nach ihrer Zufriedenheit geklappt hat.", #MB_SYSTEMMODAL|#PB_MessageRequester_Info)
ElseIf ok = #False
MessageRequester("Huhu! Ich bin fertig. :(", "Überprüfen Sie bitte die Pfadangabe und die dortigen Dateien."+#CRLF$+"Irgendetwas hat definitiv nicht funktioniert."+#CRLF$+"Ich möchte Sie beim nächsten Mal nicht wieder mit diesem Text nerven."+#CRLF$+#CRLF$+"Mit freundlichen Grüßen: Ihr Computer", #MB_SYSTEMMODAL|#PB_MessageRequester_Error)
EndIf
EndIf
EndIf
EndIf
Until Event = #PB_Event_CloseWindow
EndIf
End