Dateien kopieren

[SIS]

Hallo,

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 

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

[TomS]

Wo is'n der Rest von dem Code?

[SIS]

Hab meinen Thread editiert.

[ts-soft]

> If CopyDirectory("C:\Neu\ha.txt\", "C:\Backups\", "*.*", #PB_FileSystem_Recursive)
Biste sicher, das Du einen Ordner "ha.txt" hast?

[TomS]

Funktioniert bei mir einwandfrei.
Wenn es bei dir nicht funktioniert, existiert der Quellpfad nicht, oder das Ziel ist schreibgeschützt.

[SIS]

> If CopyDirectory("C:\Neu\ha.txt\", "C:\Backups\", "*.*", #PB_FileSystem_Recursive)
Biste sicher, das Du einen Ordner "ha.txt" hast?

Achsooo ich dachte man kann auch einzelne Dateien angeben, die man verschieben möchte

Thank you very much!

[STARGÅTE]

naja dafür gibs CopyFile()

[TomS]

Dann aber ohne den Backslash nach dem Dateinamen.