Programnamen aus einem Verzeichnis ändern?

Für allgemeine Fragen zur Programmierung mit PureBasic.
ccode_new
Beiträge: 1214
Registriert: 27.11.2016 18:13
Wohnort: Erzgebirge

Re: Programnamen aus einem Verzeichnis ändern?

Beitrag von ccode_new »

Hallo!

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
Betriebssysteme: div. Windows, Linux, Unix - Systeme

no Keyboard, press any key
no mouse, you need a cat
Antworten