mostra_dir("c:\work") procedure mostra_dir(m.path as Character) if !used("cDir") create cursor cDIR (dir c(254)) endif local array m.laDir(1) local m.lnTotalDir as Number, m.loop1 as Number m.lnTotalDir=adir(m.laDir,m.path+"\*","ADHRS",1) for m.loop1=1 to m.lnTotalDir if left(m.laDir(m.loop1,1),1)="." loop endif insert into cDir (dir) values (m.path+"\"+m.laDir(m.loop1,1)) if "D"$m.laDir(m.loop1,5) mostra_dir(m.path+"\"+m.laDir(m.loop1,1)) endif endfor return .t.