Formating File Sizes

[jobartley515]

Hello,

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))
End If

But it doesn't seem to work

Anybody have any ideas or can help?

Thanks

[Alex Stephen]

Try this...

Dim I as long

instead of an integer

A Long is a 4 byte integer while an Integer is a 2 byte integer