Public Function Dimensioni(strPath)
On Error Resume Next
Dimensioni = Int(FileLen(strPath) / (1024)) & " KB"
End Function



da http://www.sitocomune.com/index.html


VaneX