Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
File Scripting object
Message
General information
Forum:
Visual FoxPro
Category:
ActiveX controls in VFP
Miscellaneous
Thread ID:
00453480
Message ID:
00453864
Views:
32
>>>I'm tring to convert this code from vbs to vfp. It simply list a list of files in a certain directory. I get the following error "'Files' is not a varible".
>>>
>>>
>>>Here is the code:
>>>
>>>fso = CreateObject("Scripting.FileSystemObject")
>>>f = fso.GetFolder("c:\test")
>>>fc = f.Files
>>>For Each f1 in fc
>>> s = s + f1.name
>>> s = s + "< BR >"
>>>Next
>>>? s
>>
>>It's something with that f or f1 variable. The following works fine on my machine
lcfolder = GETDIR()
>>oFSO = CREATEOBJECT('Scripting.FileSystemObject')
>>oFolder = oFSO.GetFolder(lcfolder)
>>FOR EACH oFile IN oFolder.Files
>>    ? oFile.Name
>>NEXT
However, when I used your code, I got the same result until I changed that variable.
>
>Probably f - f is used as one of the default work area aliases.

Yeah, that's it. Funny how we forget things like this. Of course, not having used that syntax in about 10 years might be a contributing factor.< g >
George

Ubi caritas et amor, deus ibi est
Previous
Reply
Map
View

Click here to load this message in the networking platform