Dim ofso
set ofso = CreateObject("Scripting.FileSystemObject")
 
' Existiert der Ordner?
If oFSO.FolderExists("D:\test") Then
  ' Ordner löschen
  ' Zweiter Parameter (force): TRUE -> Auch Hidden, Read-only;
  'FALSE -> Nur normale
  ' Ich glaub, für dein Problem ist True besser geeignet
   oFSO.DeleteFolder "D:\test", True
End If
 
Set ofso = Nothing

-----------------------------------
Betriebssystem: Schrott (Vista)
Entwicklungsumgebung: VS 2008

Beitrag wurde zuletzt am 25.04.08 um 20:14:03 editiert.