>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 + "
"
>Next
>? s

Try:

fso = CreateObject("scripting.FileSystemObject")
f = fso.GetFolder("c:\test")
s = ''
FOR EACH f1 IN f.Files
  s = s + f1.name + '<BR>'
NEXT
? s