[UpDaTe]

Если на VBS, то можно как-то так:

Код:

Option Explicit
dim FolderPatch, objFSO, objFolder
dim oneFolder
dim onefile
dim objfile, fileList

FolderPatch="C:\TMP"
set objFSO=CreateObject("Scripting.FileSystemObject")
set objFolder=objFSO.GetFolder(FolderPatch)

Sub GetAllFolders(objFolder) 
       for each oneFolder in objFolder.SubFolders
	    set fileList=onefolder.Files
	    for each onefile in fileList 
                objFile=onefile.delete
            next		   
	    GetAllFolders oneFolder 'используем рекурсию
	next
end sub

set fileList=objFolder.Files
      for each onefile in fileList 
           objFile=onefile.delete
      next		   
GetAllFolders(objFolder)