...eliminare tot FILE DI DIMENSIONI > UNCERTOLIMITE in automatico invece ...

x ELIMINARE DALLA DIRECTORY SU SERVER UN TOT DI FILE di dimensione eccessiva rispetto a quella permessa ...

TROVO NON POCHE DIFFICOLTA' A FARLO e a trovare FAQ sull'argomento :(

Ho trovato sempre come eliminare un dato file ma non il modo per eliminarne un tot di dimensione eccessiva.

Il codice da modificare ma non so come e' il seguente

' Trovare file con dimensione troppo grande rispetto a quella voluta

Const MAX_SIZE = 80000
dim objFile, objFSO, objFolder, strFolderPath
strFolderPath = "immagini"
strFolderPath = Server.MapPath(strFolderPath)
Set objFSO = _
Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = _
objFSO.GetFolder(strFolderPath)
for each objFile in objFolder.Files
If objFile.Size > MAX_SIZE then
response.write "<font color=red>("
response.write objFile.Size
response.write "bytes)</font>"
response.write objFile.Path & "<br>"
'Il file viene cancellato
objFSO.DeleteFile (strFolderPath & nomefile)
Set objFSO = Nothing
end if
Next
response.write "<br><br>" "I FILE TROPPO GROSSI SONO STATI ELIMINATI !"

Come posso fare dovendo essere nomefile un valore dinamico?

GRAZIE 1000