Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Determining file size
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Re: Determining file size
Environment versions
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP1
Network:
Windows 2000 Server
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01019302
Message ID:
01019325
Views:
19
Function wiorks for me
Try:
loFSO = Createobject("Scripting.FileSystemObject")
filepath = 'U:\questpdm\picture\whatever.jpg'
loFile = loFSO.Getfile(filePath)

IF loFile.Size <= 500000
   MESSAGEBOX("File Size is OK")
ELSE
   MESSAGEBOX("File Size is not OK - File Size="+TRANSFORM(loFile.Size))
ENDIF
And see what is the loFile.Size
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform