OpenEuphoria

Hints & Tips

• Posted by Alan Tu <ATU5713 at COMPUSERVE.COM> Aug 14, 1998
• 713 views

File length function

function file_length(integer file_num) -- assumed file already open as
-- binary, device number file_num
    integer seek_success
    seek_success =3D seek(file_num,-1)
    file_length =3D where(file_num)
    seek_success =3D seek(file_num,0)
    return file_length
end function

--Alan
  =