[ASP] - Dimensione di un File

CALCOLARE LA DIMENSIONE DI UN FILE

Dim fname, fpath
'fname è il nome del file da controllare
fname = "percorso_file"
fpath = Server.MapPath(fname)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(fpath)
'Formatto il numero senza alcuna cifra decimale
dimensione = FormatNumber(f.Size/1024, 0)&" KB"
'Visualizzo la dimensione tra parentesi
response.write "(" & dimensione & ")"
Set f = nothing
Set fso = nothing