' Region Description
'
' Name:
' Author:		Gerhard Kuklau
' Version:		0.1
' Description:	xxx
' 
' Powered by SystemScripter 6.0	  http://www.scriptinternals.de
' EndRegion
' Delete All Files in a Folder
' supported on all 32-Bit-Windows platforms (9x - 2003)
 
 
Dim sStartPath
	WScript.Echo "Start: Löschvorgang"
	sStartPath = "dein-start-verzeichnis"	' z.B. "c:\"
	AllSubFolders sStartPath	
	WScript.Echo "Löschen fertig"
 
Function AllSubFolders(ByVal sStartPath)
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	Set objFolder = objFSO.GetFolder(sStartPath)
	Set colSubfolders = objFolder.Subfolders
	' erst mal die Dateien im aktuellen Verzeichnis löschen
	DeleteAllFiles 	sStartPath
	' dann schauen, ob im akt. Verzeichnis noch Unterverzeichnisse sind (Rekursion)
	For Each objSubfolder In colSubfolders
		AllSubFolders objSubfolder.Name
	Next
End Function
Function DeleteAllFiles(ByVal sPath)
' Alle Dateien mit der Endung "mpg" im aktuellen Verzeichnis löschen
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	objFSO.DeleteFile("c:\temp\*.mpg")
End Function

ciao
Elwood

Wer sp?ter bremst, ist l?nger schnell