Dateien kopieren
Verfasst: 07.10.2009 16:37
Hallo,
Ich bin noch Anfänger im Programmieren und verstehe nicht, warum ich, anhand meines Codes keine Dateien kopieren kann
Der Compiler gibt mir zwar keine Fehlermeldung an, jedoch mein Programmausführen, passiert nichts, stattdesses zeigt er mir an, dass ich "Erfolglos" kopiert habe. Aber das ist doch der Code um Dateien zu kopieren 
MfG
Ich bin noch Anfänger im Programmieren und verstehe nicht, warum ich, anhand meines Codes keine Dateien kopieren kann
Code: Alles auswählen
Enumeration
#Hauptfenster
#ButtonLaden
#ButtonEnd
EndEnumeration
OpenWindow (#Hauptfenster, 100, 100, 700, 400, "Programm")
ButtonGadget (#ButtonLaden, 10, 10, 100, 40, "Laden")
ButtonGadget (#ButtonEnd, 590, 350, 100, 40, "Beenden")
Repeat
EventID = WaitWindowEvent()
If EventID = #PB_Event_Gadget
Select EventGadget()
Case #ButtonLaden
If CopyDirectory("C:\Neu\ha.txt\", "C:\Backups\", "*.*", #PB_FileSystem_Recursive)
MessageRequester("Erfolgreich","Speicherungsort erfolgreich erstellt.",0)
Else
MessageRequester("Erfolglos","Speicherungsort erfolglos erstellt.",0)
EndIf
Case #ButtonEnd
ende=1
EndSelect
EndIf
Until EventID = #PB_Event_CloseWindow Or ende=1
MfG
ich dachte man kann auch einzelne Dateien angeben, die man verschieben möchte 