Office: (Office 2003) CMD Befehl per VBA ausführen

ich möchte per VBA einen Folder mit Inhalt löschen (unter WinXP)
Was mache ich falsch?

DOSAufruf = "rmdir /s c:\temp\testfolder"
x = Shell(Environ$("COMSPEC") & "/C " & DOSAufruf, 6)

Fehlermeldung: Laufzeitfehler "76": Pfad nicht gefunden.

Kopiere ich den DOSAufruf in die CMD-Ebene, gehts.

Wer weiß rat, bzw hat Alternativen?

Danke*Smilie

:)

 

Hallo!

Du könntest alternativ das FileSystemObject für diese Aufgabe verwenden:
Code:

HTH

 

Danke Thomas,

mir gehts aber gerade darum einen CMD-Befehl auszuführen.
Hintergrund ist folgender:
Ich möchte die Inhalte des Folders "Temporary Internet Files" löschen. Da werden auch noch weitere Folder drin angelegt und ich möchte alles raus haben (Frag nicht warum, der Kunde ist König). Merkwürdigerweise versagen da alle APIs und alle Methoden, die ich bisher ActiveVB und VB@rchiv gefunden habe. Nur dieser Befehl auf der CMD Ebene tuts:
RMDIR /s /q strFolder
der bügelt im CMD Fenster ausgeführt alles raus, was nicht gerade in Benutzung ist. Wenn ich das so nicht hinbekomme muss ich ein .BAT anlegen und das dann ausführen. Aber es muss doch auch so gehen???

Schöne Grüße

Klaus

 

\@Klaus: Bist Du sicher, dass der Anweisungsstring richtig zusammengesetzt wurde (ich habe nicht so richtig eine Vorstellung davon).

Als Variante: Beschäftige Dich mit dem Windows Script Host (WSH). Darüber kann man Command-Anweisungen ausführen lassen, die sonst schwer fallen (Ausgabe umleiten in Druckausgabe u.ä.). Aus dem Handgelenk kann ich aber keinen Vorschlag machen.

 

Hallo Klaus,

na gut, wenn Du unbedingt willst. *wink.gif*

Du musst vor dem Parameter /C noch ein Leerzeichen einfügen. Außerdem habe ich ein /q in den Dos-Aufruf eingefügt, um die Nachfragen abzustellen.
Code:

Nur zur Info: Das FileSystemObjekt löscht auch die im zu löschenden Ordner enthaltenen Unterordner und Dokumente.

CU

 

es geht!
Danke Thomas!
Es war das Blank vor dem /c!

Ich habs einfach übersehen.

Klaus