Dir funkcija

[gremlin33]

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

[gremlin33]

BUMP
zapravo da li sam ja postavio preteško pitanje ili nedovoljno jasno...
nije mi teško pisat..no u kom smjeru krenut

hvala unaprijed.