* >* 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 >