hello , try ,

local cont, scont
create cursor tmpdir (dirname c(60))
cont=adir(vardir,"\*.","D")
for scont = 1 to cont
if right(vardir(scont,5),1)="D"
insert into tmpdir(dirname) values ("\"+alltrim(vardir(scount,1)))
endif
endfor