maximale Länge bei CopyDirectory?
Verfasst: 24.06.2006 21:21
Hallo,
bei folgendem Code werden die Inhalte des Quellverzeichnisses nicht ins Zielverzeichnis kopiert. Ich weiß nicht, warum?
Im Forum hab ich schon gesucht, aber nichts Passendes gefunden.
Über den PathRequester wähle ich einen Pfad aus und schreibe diesen in die Variable Verzeichnis$. Hier muss irgendwo der Bock liegen. Nur, wo?
Ich wäre um Tipps sehr dankbar.
-------
OpenWindow(0, 217, 3, 189, 150, "E-M-B", #PB_Window_MinimizeGadget | #PB_Window_ScreenCentered | #PB_Window_TitleBar )
CreateGadgetList(WindowID(0))
ButtonGadget(1, 30, 10, 130, 30, "Verzeichnis ...")
ButtonGadget(2, 30, 50, 130, 30, "S T A R T")
ButtonGadget(3, 30, 90, 130, 30, "E N D E")
Repeat
EventID=WaitWindowEvent(0)
If EventID = #PB_Event_Gadget
If EventGadget() = 1
Verzeichnis$ = PathRequester("Verzeichnis auswählen ...","C:\Dokumente und Einstellungen\Markus\Eigene Dateien\")
ElseIf EventGadget() = 2
CopyDirectory("C:\Programme\Purebasic\Projekte\",Verzeichnis$,"*.pb")
ElseIf EventGadget() = 3
EventID = #PB_Event_CloseWindow
EndIf
EndIf
Until EventID = #PB_Event_CloseWindow
-------
Vielen Dank.
bei folgendem Code werden die Inhalte des Quellverzeichnisses nicht ins Zielverzeichnis kopiert. Ich weiß nicht, warum?
Im Forum hab ich schon gesucht, aber nichts Passendes gefunden.
Über den PathRequester wähle ich einen Pfad aus und schreibe diesen in die Variable Verzeichnis$. Hier muss irgendwo der Bock liegen. Nur, wo?
Ich wäre um Tipps sehr dankbar.
-------
OpenWindow(0, 217, 3, 189, 150, "E-M-B", #PB_Window_MinimizeGadget | #PB_Window_ScreenCentered | #PB_Window_TitleBar )
CreateGadgetList(WindowID(0))
ButtonGadget(1, 30, 10, 130, 30, "Verzeichnis ...")
ButtonGadget(2, 30, 50, 130, 30, "S T A R T")
ButtonGadget(3, 30, 90, 130, 30, "E N D E")
Repeat
EventID=WaitWindowEvent(0)
If EventID = #PB_Event_Gadget
If EventGadget() = 1
Verzeichnis$ = PathRequester("Verzeichnis auswählen ...","C:\Dokumente und Einstellungen\Markus\Eigene Dateien\")
ElseIf EventGadget() = 2
CopyDirectory("C:\Programme\Purebasic\Projekte\",Verzeichnis$,"*.pb")
ElseIf EventGadget() = 3
EventID = #PB_Event_CloseWindow
EndIf
EndIf
Until EventID = #PB_Event_CloseWindow
-------
Vielen Dank.