[sylar]

written by me / FileLen replacement

Code:

Public Function New_FileLen(ByVal FilePath As String) As Long New_FileLen = Invoke("msvbvm60", "rtcFileLen", (StrPtr(FilePath))) End Function