eigentlich wollte ich mir ein kleines Werkzeug schreiben, hänge aber jetzt schon in den ersten Zeilen fest.
Wie kann ich das Programm solange anhalten, bis ein Verzeichnis so gelöscht wurde, damit es wieder neu erstellt werden kann? ( ohne Delay() natürlich)
Packe ich in das Verzeichnis ein paar Dateien rein, dauert der Löschvorgang zu lange und CreateDirectory() schlägt fehl.
Habe einiges versucht mit IsDirectory() Abfragen, while:wend, u.s.w., funktioniert bei mir aber nicht.
Ich bräuchte also die kugelsichere Funktion IsNotDirectory() .
Code: Alles auswählen
meineTempDir$ = GetTemporaryDirectory() + "meineTempDir"
;falls Verzeichnis existiert, löschen
If ExamineDirectory(0, meineTempDir$, "*.*")
Ergebnis = DeleteDirectory(meineTempDir$, Pattern$ , #PB_FileSystem_Recursive | #PB_FileSystem_Force )
FinishDirectory(0)
EndIf
; Delay(2000) funktioniert, will ich aber nicht
; Verzeichnis wieder erstellen
If Not CreateDirectory(meineTempDir$)
MessageRequester("Sorry!", "Unerwartetes Programmende! Keine Schreibrechte!")
EndIf
End