How can i programmatically determine the size of a file in KB? I want to pass a file as a parameter and determine the size. If the size is below 500KB do this if greater then do that.
>
>Many ThanksNeil try this
CLOSE DATABASES
SET DEFAULT TO (HOME(2) + 'Data')
m.NumTables = ADIR(MyTables, '*.DBF')
FOR m.nCount = 1 TO m.NumTables
MESSAGEBOX(IIF(MyTables(m.nCount,2)<=50000,'Less or equal 50KB','greater then 50 KB')+ ' size = '+TRANSFORM(MyTables(m.nCount,2))+' bytes')
ENDFOR
_______________________________________________________________
Testing displays the presence, not the absence of bugs.
If a software application has to be designed, it has to be designed correctly!
_______________________________________________________________
Vladimir Zografski
Systems Analyst