XProfan

RGH
 $H windows.ph

Proc FileSize2

    -------------
    Parameters File$
    Declare Info#, Erg!
    Dim Info#,328

    If ~FindFirstFile(Addr(File$),Info#) > 0

        Erg! = @long(Info#,28) * 65536 + @long(Info#,32)

    Else

        Erg! = -1

    EndIf

    Dispose Info#
    Return Erg!

EndProc