Office: (Office 2010) Ordner samt Inhalt per VBA löschen

Hallo,
in einer Datenbank verwalte ich MP3-Dateien, welche in verschiedenen Ordnern und Unterordnern abgelegt sind und in einen Tabellenformular angezeigt werden. Nun möchte ich Dateien, welche ich nicht brauche löschen und bei Bedarf auch ganze Ordner. Einzelne Dateien sind kein Problem, wenn ich jedoch einen Ordner entfernen möchte erscheint die Meldung "Pfad nicht gefunden". Überprüft man den Vorgang im Einzelschrittmodus, da wird der richtige Pfad übergeben.
Code:

Was mache ich hier falsch?
VG
Charly

:)

 

Hallo! Code:

Mit nur einem Parameter.

Wolfgang

 

Hallo!

Wie sieht der Inhalt der Variablen PfDat aus?
Steht möglicherweise ein "\" am Ende?

Code:

[OT]
Die Fehlerbehandlung im Code aus Beitrag 1 ist riskant.
Es wird zwar eine Msgbox angezeigt, danach läuft der Code aber weiter, als wäre alles ohne Fehler durchgelaufen. (Aus Sicht der aufrufenden Prozedur kam es zu keinem Fehler.)

Da OrdnerLoeschen vermutlich nie die 1. Aufrufebene ist, würde ich die Fehlerbehandlung einfach weglassen und in der aufrufenden Prozedur auf einen möglichen Fehler reagieren.


mfg
Josef

 

Hallo,
man könnte doch einfach auch die VBA Befehle verwenden, oder spricht da was dagegen ?

Code:

 

Hallo,
danke für die schnelle Hilfe, es funktioniert. der Fehler lag am "\".
Code mit Code:

ergänzt.
Danke an alle und VG
Charly

 

Hallo
hast Du mit Kill versucht ?
hier aus der OH
Kill Pfadname

Das erforderliche Argument Pfadname ist ein Zeichenfolgen ausdruck, der eine oder mehrere zu löschende Dateien angibt. Pfadname kann ein Verzeichnis oder einen Ordner sowie ein Laufwerk enthalten.
Beim Versuch, mit der Kill-Anweisung eine geöffnete Datei zu löschen, tritt ein Fehler auf.

 

Hallo Ruedi,
Kill habe ich nicht mehr probiert, weil es mit fso.deletefolder gut funktioniert. Einzelne Dateien lösche ich mit fso.deletefile.
Aber vielen Dank für den Tipp.
VG
Charly

 

Hallo,
was passiert bei einer geöffneten Datei mit
fso.deletefolder?

 

Hallo Ohrkester,

habs's getestet (Du wahrscheinlich auch *wink.gif*):

Laufzeitfehler 70: Zugriff verweigert.

 

Hallo,
das spielt bei diesem Programm keine Rolle. Das Programm funktioniert so: Wie ich am Eingang schon erwähnte, werden die MP3-Dateien in einem Tabellenformular angezeigt. Mit einer Schaltfläche "Start/Stop" können die einzelnen MP3's angehört werden. Die Schaltflächen für das Datei- bzw. Ordnerlöschen werden entsprechend de- bzw. aktiviert. Also das Löschen kann nicht erfolgen wenn zuvor auf Start geklickt wurde. Wenn ich mehr Zeit habe, werde ich aber interessehalber einmal versuchen ein MP3 mit dem Mediaplayer zu öffnen und dann den Ordner löschen.
VG
Charly

 

Hallo,
bei mir werden zwar alle Dateien und Unterordner mit Dateien des zu löschenden Hauptordners gelöscht, jedoch (zunächst) nicht der Hauptordner selber. Stattdessen erscheint der Laufzeitfehler 70 und der Debugger markiert die Zeile: Code:

Wenn ich den Debugger beende und den Löschvorgang nochmal starte, denn wird auch der zu löschende Hauptordner ohne Laufzeitfehler weggeputzt. Weiss jemand wodurch der Laufzeitfehler ausgelöst wird und wie ich das Problem lösen kann?
Danke & Gruß
Hartmut