>I'm working on a data transfer project where ARC files are expanded into new directories and ADIR() is used to return the file names and file count.
>
>When there are more than 65,000 files expanded, VFP 6.0 errors with Too many variables. (array limit reached).
>
>How can I test for the number of files prior to calling ADIR()???
>
>I considered running DIR * TO FILE (filename) but I figure, the overhead of
>writing a 65,000 line file to disk multiple times, is more than the system will bear.
>
>Any and all suggestions will be appreciated.
>
>_Curtis

Curtis,
You might try WSH version :

oFS = CREATEOBJECT('Scripting.FileSystemObject')
oFolder = oFS.GetFolder(lcFolder)
*? oFolder.Subfolders.Count
For each oSubFolder in oFolder.Subfolders
*...
endfor

Cetin