maximale Länge bei CopyDirectory?
-
- Beiträge: 9
- Registriert: 24.06.2006 21:15
maximale Länge bei CopyDirectory?
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.
-
- Beiträge: 9
- Registriert: 24.06.2006 21:15
-
- Beiträge: 9
- Registriert: 24.06.2006 21:15
Die Fehlermeldung lautet: "Eine Datei kann nicht erstellt werden, wenn sie bereits vorhanden ist".
Das Wort "Datei" bezieht sich dabei offensichtlich auf den Ordner.
Wenn du einen neuen Zielordner nimmst (der noch nicht existiert) , dann funzt es.
Ist ein Bug, denn laut PB Hilfe: " ...wenn das Verzeichnis bereits existiert, wird es automatisch überschrieben."
Das Wort "Datei" bezieht sich dabei offensichtlich auf den Ordner.
Wenn du einen neuen Zielordner nimmst (der noch nicht existiert) , dann funzt es.
Ist ein Bug, denn laut PB Hilfe: " ...wenn das Verzeichnis bereits existiert, wird es automatisch überschrieben."
horst
-
- Beiträge: 9
- Registriert: 24.06.2006 21:15
-
- Beiträge: 9
- Registriert: 24.06.2006 21:15
-
- Beiträge: 6291
- Registriert: 29.08.2004 08:37
- Computerausstattung: Hoffentlich bald keine mehr
- Kontaktdaten: