Dim fso As FileSystemObject
Dim fldOrdner As Folder
Dim filDateien As File
Dim strPfad As String
 
 
strPfad = "C:\Dokumente und Einstellungen\Administrator\Cookies"
Set fso = New FileSystemObject
 
'Existiert der Ordner noch
If fso.FolderExists(strPfad) = False Then
      MsgBox "Folgender Ordner" & vbCrLf & strPfad & vbCrLf & "existiert" & _
        "nicht",   vbExclamation, "Meldung:"
 
Else
     'Löschen der Ordner und Dateien----------------------------
     For Each fldOrdner In fso.GetFolder(strPfad).SubFolders
                 On Error Resume Next
                 fso.DeleteFolder (fldOrdner)
                 If Err.Number = 70 Then
                            Msgbox "Ordner nicht löschbar",vbCritical,"Zugriff" & _
                              "verweigert"
                            Err.Clear
                  End If
      Next
 
       'Ausgangsverzeichnis
       Set fldOrdner = fso.GetFolder(strPfad)
       For Each filDateien In fldOrdner.Files
              On Error Resume Next
              fso.DeleteFile (filDateien)
 
               'Zugriffverweigert ?
               If Err.Number = 70 Then
                    	    Msgbox "Datei nicht löschbar",vbCritical,"Zugriff" & _
                      "verweigert"	        
                            Err.Clear
               End If
 
          Next
End If