Whoops... aFolders is really a misnomer in this example. The original code was intended to list only folders. I'd modified it to list the files in each folder for this example.

>

*
>* tree.prg
>*
>lparam cDir
>private x, aFolders, nDir
>
>?cDir
>
>if right(cDir,1) # '\'
>	cDir = cDir + '\'
>endif
>
>nDir = aDir(aFolders, cDir + "*.*", "D")
>for x = 1 to nDir
>	if 'D' $ aFolders(x,5) and aFolders(x,1) # '.'
>		=tree(cDir + aFolders(x,1))
>	else
>		? cDir + aFolders(x,1)
>	endif
>next x
>return
>