Tema: Dir funkcija
View Single Post
Staro 27.04.2006., 15:52   #1
gremlin33
just like Registered User
Moj komp
 
gremlin33's Avatar
 
Datum registracije: Jul 2004
Lokacija: zagreb
Postovi: 166
Dir funkcija

Mene naravno muči logika a vala i programski dio u VB-u kako napraviti
pregled datoteka i subFoldera unutar jednog direktorija ili diska
kod koji je dan u Help-u izgleda poprilici ovak:

p = Dir(strstaza, vbDirectory) ' čita 1 fajlu ili dir
Do While p <> "" ' kreće petlja
If p <> "." And p <> ".." Then 'zanemaruje trenutni direktorij
If (GetAttr(strstaza & p) And vbDirectory) <> vbDirectory Then
'onda je datoteka
Else
'inace je folder
End If
Else

End If
p = Dir ' čita sljedeću datoteku/direktorij
Loop
ja bih zapravo htio staviti težište pitanja na logiku jer mi je ona nejasna a bez nje nema ni kod-a....
ako naprimjer ima "root" folder
test a u njemu još 5 datoteka i npr 6 subfoldera(koji u sebi sadržavaju n subfoldera i datoteka...kako pobrojati koliko datoteka imam i koliko foldera krenuvši brojati od foldera "test"
ta funkcija bi trebala biti rekurzivna tj. pozivati samu sebe, e sad nikako nemam ideju kako i kojim putem krenuti..
da li kad čita folder test da prvo pobroji sve datoteke a ako naiđe na foldere da ih zapiše u nekakav niz i kad zavši sa datotekama čita nulti niz, ulazi u subfoldere i opet radi isto...kreira novi niz za podfoldere u subfolderu i blabla...
žma nije mi jasno a volio bih da znam
__________________
što me snađe da se ovdje nađe!
gremlin33 je offline   Reply With Quote