Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
ADIR, SYS(2000) and Filer all returned wrong results
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Environment versions
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01173982
Message ID:
01174199
Views:
12
Hi Randall,

Sorry, I mean you have to try with a BIG directory. In my Windows\System32 we have 6K, so that's not enough. Check your temp internet folder, may be you have lots of files there.

Also, you brought a good point. Could it be VFP8 problem fixed in VFP9?

>Hello Naomi,
>
>>I don't see any mask used in your example. Try
>>
>>SYS(2000,'c:\windows\*w*.exe') in both SYS commands.
>
>Ok. I'll give that a shot, too. One sec...going to use
>*A*.exe....should only have a few of those...one sec....
>
>Ok. Came back with 6 records...going to check it against
>"dir c:\windows\*A*.exe"....
>
>05/03/2005 08:43 PM 69,632 Alcmtr.exe
>01/04/2006 01:29 PM 2,809,856 alcwzrd.exe
>01/09/2006 04:32 PM 2,158,592 MicCal.exe
>08/04/2004 01:00 PM 69,120 NOTEPAD.EXE
>01/04/2006 01:27 PM 86,016 SoundMan.exe
>08/04/2004 01:00 PM 15,360 TASKMAN.EXE
> 6 File(s) 5,208,576 bytes
> 0 Dir(s) 130,723,459,072 bytes free
>
>
>Well, it works for me under VFP 9 SP1. (Shrug.)
>
>
>If it still doesn't work under 8, there is another work-around,
>although it's a pain in the rear. You know you're going to get
>a few records that aren't suppose to be in there, so read the
>directory list into an array, UPPER() everything, and parse for
>the error records, deleting them as you go, and then save/calculate/whatever.
>Elegant? Heck no! :^) Kludge? You bet! :^)....but hey....it'll
>work :^) :^).
>
>Personally, I'd buy VFP 9 -- even if I had to pay for my own personal
>copy and theirs! -- before I wrote code like that, though :^).
>
>>BTW, one unrelevant comment - you don't have to use m. as m.lcFileName when lcFileName
>>is on the left side. Only when it's on the right.
>
>Ah. Ok. Thanks for the info. I like learning little tricks like this! :^).
>
>
>Regards,
>
>Randall
If it's not broken, fix it until it is.


My Blog
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform