General information
Category:
ActiveX controls in VFP
It seems, the slash should be at the end:
fso.GetFolder("c:\test\")
>>>>>>>>>>>>>>>>>>>>>>>>
>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.
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only