I am trying to produce a list of the sub directories contained within a folder in Windows.

Can I

Is there a foxpro command that allows this functionality to a table or array or something

I am using Visual FoxPro 7.0

Thanks in advance.

Richard Peterson

There is:

ADIR()

Filer.dll that comes with VFP

Scripting.FileSystemObject (aka FSO)

ie: With Adir()

GetTree("c:\My Path")

Function GetTree
lparameters tcPath
create cursor dirlist (dirname m)
=getsubdirs(m.tcPath)
browse

function getsubdirs
lparameters tcPath
local lcCurDir, lnSubDirs, ix
local array laDirs[1]
lcCurdir = ADDBS(m.tcPath)
insert into dirlist values (m.lcCurdir)
lnSubdirs=adir(laDirs,m.lcCurdir+"*.*","DHS")
for ix = 1 to m.lnSubDirs
if laDirs[m.ix,1]#"." AND "D"$laDirs[m.ix,5]
=getsubdirs(m.lcCurdir+laDirs[m.ix,1])
endif
endfor

Thank You.

I can take what you have built and use it, thanks very much.