Copy.dll [OpenSource]

[a14xerus]

Mir war langweilig, da hab ich mir etwas zum kopieren und verschieben von Dateien und Ordnern geschrieben.
Ergebnis:
Programmpage
Beispielprogram:

Code: Alles auswählen

Enumeration
  #Mode_Copy = 1
  #Mode_Shift = 2
EndEnumeration

If OpenLibrary(0,"copy.dll")
  
  file.s = OpenFileRequester("Open", "C:\", "*.*", 0, #PB_Requester_MultiSelection)
  While file
    
    ; ProcedureDLL AddFileToMove(Datei.s)
    CallFunction(0, "AddFileToMove", file) ; Dateien hinzufügen
    
    file = NextSelectedFileName()
  Wend
  
  dir.s = PathRequester("","")
  If dir
    ; ProcedureDLL AddDirectoryToMove(Pfad.s)
    CallFunction(0, "AddDirectoryToMove", dir) ; Rekursiv das Verzeichniss hinzufügen
  EndIf
  
  ; ProcedureDLL Execute(Ziel.s, Modus.l, Fotschrittanzeige.l, ZeigeWarunungen.l, ParentWindowHWND.l)
  CallFunction(0, "Execute", "C:\test\", #Mode_Copy, 1, 1, 0) ; Alles nach "C:\test\" kopieren
  
  CloseLibrary(0)
EndIf

[RSBasic]

@a14xerus
Das hört sich nett an, aber ich kann jetzt nicht ausprobieren, weil ich auf Arbeit bin und da gibt es kein PB
Aber wenn ich zu Hause bin, werde ich dann dein Code testen

[a14xerus]

Neu Hochgeladen: Kopiert jetzt schneller als PB interne Funktion (mehrmals mit verschiedenen Dateien auf meinem PC getestet) (0.0.0.2)
Nochmal neu hochgeladen: Neue Buttons: Abrechen und Pause/fortfahren
Neuer Parameter: ZeigeWarungen (Falls Fehler auftreten könne diese Angezeigt oder unterdrückt werden

[RSBasic]

@a14xerus
Ja nicht schlecht, ich dachte zuerst du machst mit INF
Aber trotzdem gut gemacht