>>>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