' Powered by SystemScripter 6.0	  http://www.scriptinternals.de
 
Dim strPath
' Verzeichnis, in dem die Dateien gelöscht werden sollen
  strPath = "D:\Daten"
 
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set folder = fs.GetFolder(strPath)
  ' die Files-Collection durchgehen und...
  For Each file In folder.Files
    ' ... den Dateinamen zur Kontrolle ausgeben
    WScript.Echo file.name	
    ' ... die Datei löschen (mit der Force-Option)
    fs.DeleteFile file.Name,True
  Next

ciao
Elwood

Wer sp?ter bremst, ist l?nger schnell