Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
File Scripting object
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Contrôles ActiveX en VFP
Divers
Thread ID:
00453480
Message ID:
00453864
Vues:
33
>>>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
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform