PureBoard

Verfasst: **13.08.2005 21:15**

Hallo, hatt jemand mal einen Tip geben wie ich "copyfile"
dazu überreden könnte diese Datei zu kopieren.

If OpenWindow(0,20,20,120,60,#PB_Window_ScreenCentered |#PB_Window_SystemMenu,"test")
  If CreateGadgetList(WindowID(0))
    ButtonGadget(1,30,30,50,20,"start")
  EndIf
  
  
  
  Repeat
  
    EventID =WaitWindowEvent()
    If EventID =#PB_Event_CloseWindow
      quit=1
      
    EndIf
    If EventID = #PB_Event_Gadget
      If EventGadgetID()=1
        
    Debug    string$="C:\Programme\test.txt"
     Debug   string1$="C:\Programme\Test"
    CopyFile(string$,string1$)
    
     

EndIf
EndIf
  Until quit=1
EndIf
End

Vielen Dank im Voraus

Verfasst: **13.08.2005 21:30**

Beim Kopieren solltest Du den Dateinamen der Zieldatei mit angeben. Vorausgesetzt Dein Zielordner existiert, kannste den Code so abändern:

Code: Alles auswählen

If OpenWindow(0,20,20,120,60,#PB_Window_ScreenCentered |#PB_Window_SystemMenu,"test")
  If CreateGadgetList(WindowID(0))
    ButtonGadget(1,30,30,50,20,"start")
  EndIf
   
  Repeat
     EventID =WaitWindowEvent()
    If EventID =#PB_Event_CloseWindow
      quit=1
     EndIf
    If EventID = #PB_Event_Gadget
      If EventGadgetID()=1
        
        string$="C:\Programme\test.txt"
        string1$="C:\Programme\Test\test.txt"
        Debug string$
        Debug string1$
        CopyFile(string$,string1$)
              
      EndIf
    EndIf
  Until quit=1
EndIf
End

PureBoard

Copyfile copiert nicht !

Copyfile copiert nicht !