Rodolfo,
Thanks for the code. Actually my very first original code is almost the same as the one you sent - except VFP7 specific case param :)
Cetin

>Hi Cetin!
>
>Thank you. It works perfect! :)
>
>My friends Fabiano Costa and Antonio Lopes answer my question too (Visual Foxpro Portuguese Edition). Take a look:
>

>mostra_dir("c:\dados")
>
>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,addbs(m.path)+"*","ADHRS",1)
>for m.loop1=1 to m.lnTotalDir
>	if m.laDir(m.loop1,1)=="." or m.laDir(m.loop1,1)==".."
>		loop
>	endif
>	insert into cDir (dir) values (addbs(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.
>

>
>It's too fast, but isn't complete like yours. :)
>
>I'd like to thank Armin Neudert, Robert Munteanu and Ed Rauh!
>
>[]s! :)