>>I was doing a little coding in VB on the weekend, trying to simulate ADIR and other functions when I came across the File System Object.
>>
>>This object model of the file system, which also has methods to move and delete and rename files etc. is very elegant and works well in VFP.
>>
>>Here is a minor sample of what I mean. Change the path in GetFolder to one that exists on your own system.
>>
>>hide windows all
>>clear
>>
>>fso = CreateObject("Scripting.FileSystemObject")
>>fldr = fso.GetFolder("e:\vfp")
>>? "path is: " + fldr.path
>>? "Folder name is: " + fldr.name
>>
>>for each mfile in fldr.files
>> ? "File name is : " + PADR(mfile.name, 40) + " " + str(mfile.size)
>>endfor
>>
>>?
>>? "Folders found in this directory:"
>>For Each mfolder in fldr.subfolders
>> ? mfolder.name
>>endfor
>
>

---

>
>I fail to do this code:
>fso = CreateObject("Scripting.FileSystemObject")
>
>What should I install to make it works!?
>
>e.g. if install MS Office can make: CreateObject("Word.Basic")

You have to install the Windows Scripting Host to make the Scripting.FileSystemObject available.