PureBoard

Verfasst: **28.05.2007 21:55**

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

Verfasst: **29.05.2007 08:56**

@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

Verfasst: **29.05.2007 13:49**

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

Verfasst: **29.05.2007 14:41**

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

PureBoard

Copy.dll [OpenSource]

Copy.dll [OpenSource]