I need to know how to Format file sizes when they hit a certain point...
I'm using FileLen to obtain the files size in bytes, but after hitting a certain point, the FileLen overflows.
Heres my code:
Dim i As Integer
Dim file As Integer
For i = 0 To File1.ListCount - 1
file = FileLen(File1.Path & "\" & File1.List(i))
List1.AddItem file & " bytes"
Ive tried this...
If file > 1024 Then
file = Format$(FileLen(File1.Path & "\" & File1.List(i))
But it doesn't seem to work
Anybody have any ideas or can help?