Grazie, ho scritto così, ma elimina anche la cartella con la data di oggi che non dovrebbe essere eliminata... :

codice:
Set xfs = CreateObject("Scripting.FileSystemObject")

for i = 0 to 7
    strData = dateadd("d", i, date()-7)
    DatadiOggi = replace(strData, "/", "_")
    
    response.Write DatadiOggi &"
"

    cartella = Server.mapPath("\mac\public\bk_mysql\" & DatadiOggi)
    response.write cartella &"
"    
	 
if xfs.FolderExists(trim(cartella)) then
   xfs.DeleteFolder(trim(cartella))   
   response.write "Cartella cancellata !

"
else
   response.write "La cartella non esiste !

"  
end if

next

set xfs = nothing