[ djdejan @ 16.12.2004. 15:59 ] @
| 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) |