Ordner löschen
23.04.2009 13:33:27
Saphi
mit diesem Makro kann ich den Ordner Test_1 löschen.
Option Explicit
Private Sub OrdnerLöschen()
Dim objFileS As Object
Dim objFileFolder As Object
Set objFileS = CreateObject("Scripting.FileSystemObject")
Set objFileFolder = objFileS.GetFolder("Y:\Löschordner\Test_1")
objFileFolder.Delete
End Sub
Gibt es eine Möglichkeit, alle Ordner aus "Y:" zu löschen?
LG
Saphi