|
files randomPath$, info$( fc = val(info$(0, 1)) ' folder count for cf = 1 to fc foldName$ = info$(cf, 0) files foldName$, info2$( fc2 = val(info2$(0,1)) for cf2 = 1 to fc2 fold2Name$ = info2$(cf2,0) files fold2Name$, typ$, info3$( fc3 = val(info3$(0,0)) 'file count for cf3 = 1 to fc3 x$ = info3$(cf3,0) if (right$(x$,3) = "sal" or right$(x$,3) = "hly") then y$ = getFldr$(foldName$) z$ = getFldr$(fold2Name$) n = n + 1 emps$(n) = tb$(x$,28) + y$ +"\"+ z$ + "\" end if next cf3 next cf2 next cf
|
|