>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

And what is wrong? Just replace 'scount' to 'scont' to make it work.

!Sorry I did not recognize it is the answer to previous post. So, disregard.