>> Acutally, I want length(s) of some fields in program, if it will be in one
>> array I can use 1 ascan command and find out.. without searching in
>> multiple arrays...
>
>Don't forget that ASCAN stops on the first hit. If you have the same
>fieldname in multiple tables, then you won't necessarily find the right
>field.
>
>In this case, I would use the following *Untested* code:
>
>

>create cursor dbfstru (table c(8), field c(10), length n(3), decimal
>n(2))
>select 0
>m.lcDBF = sys(2000,"*.DBF")
>do while not empty(m.lcDBF)
>  use (m.lcDBF) again alias ___Import
>  m.lcDBF = left(m.lcDBF,rat(".",m.lcDBF)-1)
>  m.lnFields = afields(laTemp)
>  for m.lpCount = 1 to m.lnFields
>    insert into dbfstru values ;
>                (m.lcDBF, ;
>                 laTemp(m.lpCount,1), ;
>                 laTemp(m.lpCount,3), ;
>                 laTemp(m.lpCount,4) )
>  endfor
>  m.lcDBF = sys(2000,"*.DBF",1)
>enddo
>if used("___IMPORT")
>  use in ___Import
>endif
>

OOps!!! I forgot that... a very important point.. Thanks..

I will modify my code, thanks again...