Inhalt eines Ordners löschen

[Fanpost]

Hallo,

ich quäle mich mit dem Löschen eines Ordnerinhaltes rum und komme nicht zum Ergebnis.
Es soll der Inhalt von "Pic", es sind *.bmp, gelöscht werden.
Was mache ich falsch und wie geht es richtig?

Code: Alles auswählen

Pic_loeschen: ;{
  If DeleteDirectory("C:\Bilder\Log\Pic\","", #PB_FileSystem_Recursive)
    Gosub liesauftrag
  Else
    MessageRequester("Information","Konnte Daten nicht löschen!")
  EndIf
  Return

  Return ;}

[Bisonte]

Mal ganz abgesehen davon, dass es kein ausführbarer Code ist und mich das Gosub sowie 2x Return stören....

Es gibt noch ein weiteres Flag bei DeleteDirectory() : #PB_FileSystem_Force

Um mehrere Flags zu kombinieren benutzt man | ...
in deinem Beispiel :

Code: Alles auswählen

DeleteDirectory("C:\Bilder\Log\Pic\","", #PB_FileSystem_Recursive|#PB_FileSystem_Force)

Allerdings kann es sein, dass dein Programm in dem Verzeichnis keine Rechte hat (Windows Vista und höher),
daher sind dann alle Versuche zum scheitern veruteilt.

Abhilfe würde ein kompilieren mit dem "Request Admin Rights" Flag schaffen.

Edit:

Kleiner Tipp zum einsteigen :

Einfach mit dem Cursor auf die ausgeschriebene Funktion im Quellcode gehen,
und F1 drücken, schon öffnet sich die Hilfe und zeigt einem alle Möglichkeiten der Syntax, sowie einige Erklärungen
an. So fing jeder mal an....

[Fanpost]

Der Inhalt des Verzeichnisse wird immer noch nicht mit

Code: Alles auswählen

DeleteDirectory("C:\Bilder\Log\Pic\","", #PB_FileSystem_Recursive|#PB_FileSystem_Force)

gelöscht. Ok, war ein Return zu viel. Soll ein Unterprogramm zum Löschen des Inhaltes vom Verzeichnis "Pic" werden.
Auch mit dem "Request Admin Rights" Flag funktioniert es nicht.

[Bisonte]

probiere einmal einen Ordner aus, der ganz woanders liegt. D: oder ein USB Stick...

[Fanpost]

Habe es auf einem anderen Laufwerk und USB versucht, nein, funktioniert nicht

[edel]

Versuch es mal mit einem Pattern "*.bmp"

[Bisonte]

Also folgender Code funktioniert tadellos bei mir :

Ich erstellte das besagte Verzeichnis und fügte eine Datei hinzu.

Code: Alles auswählen

Source.s  = "D:\Bilder\Log\Pic\"
Pattern.s = ""

A = DeleteDirectory(Source, Pattern, #PB_FileSystem_Force|#PB_FileSystem_Recursive)

Debug a

Es wird eine 1 ausgegeben und das Verzeichnis Pic sowie der Inhalt ist futsch.

[Nino]

Wenn eine Datei (oder mehrere) in dem betr. Verzeichnis von einem anderen Programm geöffnet ist, kann DeleteDirectory() diese nicht löschen (auch nicht mit #PB_FileSystem_Force), und folglich auch nicht das betr. Verzeichnis.
Wenn dies nicht der Fall ist, funktioniert DeleteDirectory() bei mir wie erwartet (Windows 7, diverse PB-Versionen).

[ts-soft]

Probiere mal folgende Zeile, ohne Deinen Extracode!

Code: Alles auswählen

Debug DeleteDirectory("C:\Bilder\Log\Pic\", "", #PB_FileSystem_Recursive | #PB_FileSystem_Force)

>> Soll ein Unterprogramm zum Löschen des Inhaltes vom Verzeichnis "Pic" werden.
Dann nimm doch bitte Proceduren! Gosub/Return funktioniert nicht unter allen Umständen und ist veraltet.

Gruß
Thomas

// edit
Erster Teil hat sich erledigt, Bisonte war schneller

[Fanpost]

Wenn man ein gewisses Alter erreicht hat sollte man mit dem Programmieren aufhören.
Bei uns im Büro würden die Mitarbeiter nun vom Fehlercode 73 sprechen. Fehler liegt zwischen Schreibtisch und Stuhl.
Der Fehler lag bei mir, ich hatte das Verzeichnis falsch angegeben, d.h. bei meinem Original-Prog liegt das Verzeichnis in C:\Bilder-Alt\Code\Pic\. Ich habe das Verzeichnis in PureBasic immer mit
C:\Bilder_Alt\Code\Pic\ angegeben. Sche... Unterstrich.

Entschuldigung, war mein Fehler. Vielen Dank für die Bemühungen.