nur Unterordner löschen
04.04.2008 09:29:19
selli
ich möchte gerne unter angabe eines ordners nur die darin enthaltenen unterordner löschen.
der folgende code löscht den ersten "test" ordner auch.
was müss ergänzt bzw. geändert werden, damit der erste ordner erhalten bleibt?
Sub lösch()
Dim objFSO As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFolder ("D:\test")
End Sub
viele grüße
selli