[es] - VFP problem i rekurzija

djdejan

Član broj: 28622
Poruke: 138
195.252.103.*

Profil

^{16.12.2004. u 15:59 - pre 235 meseci}

Imam problem sa VFP!
Treba mi funkcija koja ce da skenira sve direktorijume i subdirektorijume pocevsi od nekog unapred zadatog!
Ova funkcija skenirajdir treba samo da prodje kroz sve direktorijume i da ih upise u cursor cDirektorijumi. Kasnije taj kursor koristim u druge svrhe...
Medjutim ne znam gde ovu funkciju da definisem??? Kao neki poseban program????
Takodje kada sam isprobao ovu funkciju, niste se nije upisivalo u kursor!!!!!!! :(

CREATE cursor cDirektorijumi (path c(250), skeniran l)

Code:
PARAMETERS direktorijum
function skenirajdir(direktorijum)
PUBLIC cDirektorijum
cd &direktorijum
broj=ADIR(niz, '*.*',"D")
FOR i=1 TO broj
    atribut=len(niz[i,5])
    IF substr(niz[i,5],atribut,atribut)="D" then
        IF SUBSTR(niz[i,1],1,1)<>'.' then
            INSERT INTO cDirektorijumi VALUES (FULLPATH(niz[i,1]), .f.)
            skenirajdir(niz[i,1])
        endif
    ENDIF
ENDFOR
ENDFUNC
skenirajdir(direktorijum)

Odgovor na temu