FORFILES /P c:\test\test\ /S /D - 10  /C "cmd /c del /q @file && echo @path @fdate deleted >> C:\test\RemOldFiles\logs.txt"

FORFILES /P c:\test\test\ /S /C "cmd /c if @isdir==TRUE ( if @fsize EQU 0 ( rmdir @file )) && echo @path - @fdate - folder deleted >> C:\test\RemOldFiles\logs.txt"

dir c:\test\ /s /b > c:\file.tmp | for /F %i in (c:\file.tmp) do if %i==c:\test\test\bla* @echo BLA

Function RunForFiles(folderspec)
   Dim fso, f, f1, fc

   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFolder(folderspec)
   Set fc = f.Files
   For Each f1 in fc
      WScript.Echo (folderspec & f1.name) 'вывод сообщения с именем файла, который будет удален. используется в тестовых целях, в рабочем скрипте нужно отключить
      If CompareDate(folderspec & f1.name) = True Then
          Log(folderspec & f1.name)
          'DelFile(folderspec & f1.name) 'удалить файл. сейчас удаление отключено для отладки.
      End If
   Next
End Function 

objpath = "D:\папка-исключение\"

objpath = "D:\папка-исключение\"

Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "D:\Test\"     ' папка которую очищаем
objpath = "D:\Test\ne_trogat\"   ' папка которую исключаем из очищения
Set objFolder = objFSO.GetFolder(objStartFolder)
'    Wscript.Echo objFolder.Path
Set colFiles = objFolder.Files
For Each objFile in colFiles
	If DateDiff("D", objFile.DateLastModified, Now) > 10 Then    ' проверка файлов на старость
'            Wscript.Echo objfolder.Path & "\" & objFile.Name & " - " & objFile.DateLastModified
Log (objFolder.Path & objFile.Name)
'	Wscript.Echo objFile.Delete
	objFile.Attributes =  0 
	objFile.Delete
	End If
Next
'-----   Wscript.Echo
ShowSubfolders objFSO.GetFolder(objStartFolder)
Sub ShowSubFolders(Folder)
    For Each Subfolder in Folder.SubFolders
Set objFolder = objFSO.GetFolder(subfolder.Path)
'   Wscript.Echo objfolder.Path
if objfolder.path <> objpath then
        Set colFiles = objFolder.Files
        For Each objFile in colFiles
	If DateDiff("D", objFile.DateLastModified, Now) >  10  Then      ' проверка файлов на старость
'            Wscript.Echo Subfolder.Path & "\" & objFile.Name & " - " & objFile.DateLastModified
Log (objFolder.Path & "\" & objFile.Name)
'	Wscript.Echo objFile.Delete
	objFile.Attributes = 0
	objFile.Delete
	End If
        Next
'-----      Wscript.Echo
        ShowSubFolders Subfolder
else
Wscript.Echo subfolder.path & " - " & "udalat` nizzya"
End If
   Next
End Sub
End Function

...
if InStr(objpath, objfolder.path & "*") <  1  then  

Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "D:\test\" 'папка которую очищаем
arrPath =array("D:\test\1","D:\test\2", "D:\test\3") 'папки которые исключаем

ShowSubfolders objFSO.GetFolder(objStartFolder)
Sub ShowSubFolders(Folder)
For Each Subfolder in Folder.SubFolders
	Set objFolder = objFSO.GetFolder(subfolder.Path)
p=false
i=lbound(arrpath)
WHILE (p=false) and (i<=ubound(arrpath))
	if (objfolder.path=arrpath(i) ) then
		p=true
	end if
	i=i+ 1 
WEND
if (not p) then
'	Wscript.Echo objfolder.path & " - " & "udalat` mozna"
	'  1 ) проверить файлы на старость
Set colFiles = objFolder.Files
For Each objFile in colFiles
	If DateDiff("D", objFile.DateLastModified, Now) >  10  Then ' проверка файлов на старость
	Log (objFolder.Path & "\" & objFile.Name)
	objFile.Attributes = 0
	objFile.Delete
	End If

Next
	'  2 ) проверить каталог на пустоту

If ((objfolder.SubFolders.Count =  0 ) AND (objfolder.Files.Count =  0 )) Then
	Log(objfolder.Path)
	Wscript.Echo objfolder.Path & " - " & "papku udalat` mozna"
	objfolder.Attributes =  0 
	objFSO.DeleteFolder(objfolder.Path)
End if

	ShowSubFolders Subfolder

else 

'	Wscript.Echo objfolder.path & " - " & "udalat` nizzya"
end if

next

end sub

'функция для создания log-файла. он создается рядом со скриптом, имя - дата запуска скрипта.

Function Log(strLineToLog)
Const ForReading =  1 , ForWriting =  2 
Dim fso, f, FileLog

Set fso = CreateObject("Scripting.FileSystemObject")
FileLog = Left(WScript.ScriptName,(Len(WScript.ScriptName)- 4 )) & "_" & DatePart("yyyy",Date) & "_" & DatePart("m",Date) & "_" & DatePart("d",Date) & "." & "log"
Set f = fso.OpenTextFile(FileLog,  8 , True)
f.Write strLineToLog & vbCrLf
f.Close
End Function

dir /b /on /s > filelist.txt

Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "c:\Test\" 'папка которую очищаем
arrPath =array("c:\Test\","c:\Test\test1","c:\Test\test2", "c:\Test\test3") 'папки которые исключаем

Set objFolder = objFSO.GetFolder(objstartfolder)
Set colFiles = objFolder.Files
For Each objFile in colFiles
	If DateDiff("D", objFile.DateLastModified, Now) >  10  Then ' проверка файлов на старость
	Log (objFolder.Path & "\" & objFile.Name & " - " & objFile.DateLastModified)
	objFile.Attributes = 0
	objFile.Delete
	End If
Next

ShowSubfolders objFSO.GetFolder(objStartFolder)
Sub ShowSubFolders(Folder)
For Each Subfolder in Folder.SubFolders
	Set objFolder = objFSO.GetFolder(subfolder.Path)
p=false
i=lbound(arrpath)
WHILE (p=false) and (i<=ubound(arrpath))
	if (objfolder.path=arrpath(i) ) then
		p=true
	end if
	i=i+1
WEND
if (not p) then
'	Wscript.Echo objfolder.path & " - " & "udalat` mozna"
	' 1) проверить файлы на старость
Set colFiles = objFolder.Files
For Each objFile in colFiles
	If DateDiff("D", objFile.DateLastModified, Now) > 10 Then ' проверка файлов на старость
	Log (objFolder.Path & "\" & objFile.Name & " - " & objFile.DateLastModified)
	objFile.Attributes =  0 
	objFile.Delete
	End If
Next
	' 2) проверить каталог на пустоту
If objFolder.Subfolders.Count > 0 then
ShowSubFolders SubFolder
End If 
	If subFolder.Files.Count > 0 AND subFolder.Subfolders.Count > 0 then
'	MsgBox "Directory " & subFolder & "- ne pusta."
	else
	Log(subFolder.Path & " - " & subFolder.Datecreated)
	objFSO.DeleteFolder(subFolder.Path)	
	End If
End If
Next
end sub

'функция для создания log-файла. он создается рядом со скриптом, имя - дата запуска скрипта.
Function Log(strLineToLog)
Const ForReading =  1 , ForWriting =  2 
Dim fso, f, FileLog

Set fso = CreateObject("Scripting.FileSystemObject")
FileLog = Left(WScript.ScriptName,(Len(WScript.ScriptName)- 4 )) & "_" & DatePart("yyyy",Date) & "_" & DatePart("m",Date) & "_" & DatePart("d",Date) & "." & "log"
Set f = fso.OpenTextFile(FileLog,  8 , True)
f.Write strLineToLog & vbCrLf
f.Close
End Function