Quando for testar o atributo, faça assim if (searchrec.attr and 16)=16 then ...
Em 06/09/07, pelebr <[EMAIL PROTECTED]> escreveu: > > preciso testar num programa > usando findfirst - findenext > e identificar e guardar todos diretorios e subs do hd num array > > testei assim > if searchrec.attr = 16 then... //16 = diretorio > > so que um diretorio pode ter varios atributos > e nesse teste nao leio muitas pastas do disco > pois ele pode ter atributo 17= atributo diretorio mais atributo oculto > atributo 22 = diretorio + sistema + oculto e etc > > como posso testar de forma que eu entre em TODAS pastas dum HD > se for diretorio quero ler nao me interessa se eh sistema oculto > -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com