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.