PC Ekspert Forum

PC Ekspert Forum (https://forum.pcekspert.com/index.php)
-   Web dizajn, programiranje i ostalo (https://forum.pcekspert.com/forumdisplay.php?f=39)
-   -   Dir funkcija (https://forum.pcekspert.com/showthread.php?t=38269)

gremlin33 27.04.2006. 15:52

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 :)

gremlin33 02.05.2006. 11:10

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.


Sva vremena su GMT +2. Sada je 12:20.

Powered by vBulletin®
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
© 1999-2024 PC Ekspert - Sva prava pridržana ISSN 1334-2940
Ad Management by RedTyger