[ exPirat @ 20.12.2005. 13:36 ] @
Iscitavam stablo, redom foldere i fajlove. E sad, foldre i fajlove prepoznajem po atributu, po donjoj tabeli
vbNormal 0
vbReadOnly 1
vbHidden 2
VbSystem 4
vbVolume 8
vbDirectory 16
Sto znaci da folder moze "zauzeti" atribute 16,17,18,20 ....
a file: 0,1,2,3,4,5,6, ....

i sve bi bilo lepo da radi :(
Tacnije ... radi, ali ne iscita sve fajlove i foldere/

Ispod DIR funkcije u petlji postavim GetAttr za file/folder koji je trenutno u petlji i dobijam atribute koji ne bi trebali da se dobiju nikakvom kombinacijom: 32 za fajlove, odnosno 48 za foldere.

O cemu se ovde radi ?
Kako da budem siguran da sam iscitao sve fajlove / foldere.
Koje vrednosti za atribute moram da proveravam.
funkcija izlaz = Dir(FolderZaObradu, vbDirectory ) definitivno ne iscita sve foldere
a funkcija MgDir = Dir(FolderZaObradu) ne tretira sve fajlove.
[ mladenovicz @ 20.12.2005. 17:33 ] @
Nedostaje ti vbArchive (32)

HowTo: Use GetAttr to get a file's attributes
[ exPirat @ 20.12.2005. 20:13 ] @
izgleda da mi je msdn malo "felerican" :(

to je to.
Hvala !
[ exPirat @ 23.02.2006. 21:38 ] @
Opet problem vezan za istu pricu :(

Pocela da puca procedura ... jedva sam utvrdio zbog cega.
Naime, folder na kome je iskljuceno "... allow indexing service ...", dobija neke blesave atribute reda velicine preko 8000.
Malo sam experimentisao i doso do zakljucka da od vrednosti koju dobije treba oduzeti 8192 da bi se dobila prava vrednost.

Trazio sam po msdn, mucio se sa guglom ali nisam nasao zasto bas 8192 i kakve to veze ima.
U svakom slucaju, rezon "bitno da radi" mi bash ne prija. Voleo bih da znam jesam li na dobrom putu i da li je to pravi nacin da se dodje do realne vrednosti atributa.

Ima li jos kakvih skrivenih zvrcki na koje se moze naleteti po ovom pitanju ?
[ Shon3i @ 24.02.2006. 19:05 ] @
Dir funkcija ne moze da iscita hidden foldere. za to moras da uzmes API FindFirstFile, FindNextFile i sve ostalo sto ide uz to