How to check file size

[waynebrady]

Is there a quick function/way to identify the file size of a file on disk? I wanted to avoid listing the directory to a text file and then parsing and locating the file size from that.

Wayne Brady

 

[bborissov]

lcDir = ADIR(laDir,FullPath([YourFile.DBF]))
? laDir[1,2]

Borislav Borissov
VFP9 SP1, SQL Server 2000/2005.
MVP VFP

 

[Mike Lewis]

Hi Wayne,

Try this:

lcOldCompat = SET("COMPATIBLE")
SET COMPATIBLE ON
? FSIZE("MyFile.TXT")
SET COMPATIBLE &lcOldCompat

I haven't test this, but I think it should work.

Mike


__________________________________
Mike Lewis (Edinburgh, Scotland)

My Visual FoxPro site: www.ml-consult.co.uk

 

[waynebrady]

Thanks. Worked perfectly.

Wayne Brady

 

[dgrewe]

If you like Low Level Functions

lnFileHandle = FOPEN("filename.ext")
lnFileSize = FSEEK(lnFileHandle,0,2)
= FCLOSE(lnFileHandle)


David W. Grewe Dave