Unterornder löschen
25.08.2007 17:03:21
SteffenS
Set fs = CreateObject("Scripting.FileSystemObject")
If Dir(phqe & "Betriebe", vbDirectory) "" And Dir(phqe & "Betriebe", vbDirectory) HBetrieb And Dir(phqe & "Betriebe", vbDirectory) "Betriebe" Then
Set f = fs.GetFolder(phqe & "Betriebe")
f.Delete
End If
Damit kann ich den kompletten Ordner löschen.
Ich möchte aber nur alle Unterordner des Ordners löschen.
Was muss tun damit ich dies hinbekomme?
Danke im Voraus.
MFG
Steffen Schmerler