FileSize2

Function GetFileSize(FileName As String) As String
Dim dblFileLength As Double
dblFileLength = FileLen(FileName)
Dim strFileSize As String

Select Case dblFileLength
Case Is < 1000
strFileSize = dblFileLength & " b"
Case Is < 10000
strFileSize = Str(dblFileLength / 1000) & " Kb"
Case Is < 100000000
strFileSize = Str(Format(dblFileLength / 1000000, "#.#")) _
& " Mb"
Case Is < 1000000000
strFileSize = Str(Format(dblFileLength / 100000000, "#.##")) _
& " Gb"
End Select
GetFileSize = strFileSize
End Function