Public Function Dimensioni(strPath)
On Error Resume Next
Dimensioni = Int(FileLen(strPath) / (1024)) & " KB"
End Function
da http://www.sitocomune.com/index.html
VaneX
Public Function Dimensioni(strPath)
On Error Resume Next
Dimensioni = Int(FileLen(strPath) / (1024)) & " KB"
End Function
da http://www.sitocomune.com/index.html
VaneX