www.webmax.biz

Option Explicit 
' spoustejte jen na vlastni nebezpeci.
dim pocetdnizpet : pocetdnizpet = Date() - 2 
dim cesta : cesta = "W:\mujadresar\"
 
' Tenhle kousek kodu na danem umisteni smaze vsecky polozky v adresari a jeho podadresarich starsi daneho data. 
Function DirWalkEx(parmPath,dTwoWeeksAgo) 
	Dim fso : Set fso = CreateObject("Scripting.FileSystemObject") 
	Dim oSubFolder, oFolder, n 
	dim pocetsmazanych
 
		On Error Resume Next 'kdyz nejde smazat dem dal 
		Set oSubFolder = fso.getfolder(parmPath) 
		if fso.FolderExists(parmPath) then
			For Each oFolder In oSubFolder.SubFolders
			If Err.Number <> 0 Then   ' if we got an error, just skip this entry 
			   Err.Clear    
			elseIf oFolder.DateCreated < dTwoWeeksAgo Then 
				  'Wscript.Echo  oFolder.Path
				  fso.DeleteFolder oFolder.Path, True 
				  pocetsmazanych=pocetsmazanych+1
			  End If 
			Next 
		else
			Wscript.Echo "Adresar nebyl nalezen"
		end if
		DirWalkEx=pocetsmazanych
		On Error Goto 0 ' navrat k normalnimu error handleru	
End Function
 
call DirWalkEx(cesta,pocetdnizpet)