Returning FileLen with very large file

[simonc]

FileLen returns a Long integer but I have a file which is over 7GB in size,
which is beyond the limit of a long integer so I get an overflow error. I
need to extract the file length to calculate details of the contents of the
file. How can I do this?

Grateful for assistance.

 

[Dave Peterson]

Option Explicit
Sub testme()
Dim myFileName As String
Dim FSO As Object

Set FSO = CreateObject("Scripting.FileSystemObject")
myFileName = "C:\My Documents\giganticfilename.here")

MsgBox Format(FSO.GetFile(myFileName).Size, "#,##0")

End Sub