It's a recursive descent down the directory tree, adding each sub-directory to the path, from the home directory, written in the days when you had to change the default directory to get ADIR to work right.
Hank
>Hi everybody,
>
>I have the following code
>
>LOCAL ARRAY slaDir[1],slaADIR[1,5]
>
>slnDir = 1
>slnNumDir = 1
>DIMENSION slaDir[1]
>slaDir[1] = This.cPjHome
>DO WHILE slnDir <= slnNumDir
> SET DEFAULT TO (slaDir[slnDir])
> DIMENSION slaADIR[1,5]
> slnNumADIR = ADIR(slaADIR,'','D')
> IF slnNumADIR > 0
> FOR slnFor = 1 TO slnNumADIR
>
> IF LEFT(slaADIR[slnFor,1],1) <> '.'
> slnNumDir = slnNumDir+1
> DIMENSION slaDir[slnNumDir]
> slaDir[slnNumDir] = slaDir[slnDir]+'\'+ALLTRIM(slaADIR[slnFor,1])
> ENDIF
> ENDFOR
> ENDIF
> slnDir = slnDir+1
>ENDDO
>
>which I can not really understand 100%. I want to also exclude certain directories, so if I modify this as
>
>LOCAL ARRAY slaDir[1],slaADIR[1,5]
>
>slnDir = 1
>slnNumDir = 1
>DIMENSION slaDir[1]
>slaDir[1] = This.cPjHome
>DO WHILE slnDir <= slnNumDir
> SET DEFAULT TO (slaDir[slnDir])
> DIMENSION slaADIR[1,5]
> slnNumADIR = ADIR(slaADIR,'','D')
> IF slnNumADIR > 0
> FOR slnFor = 1 TO slnNumADIR
>
> IF LEFT(slaADIR[slnFor,1],1) <> '.' AND not some extra directory condition checking
> slnNumDir = slnNumDir+1
> DIMENSION slaDir[slnNumDir]
> slaDir[slnNumDir] = slaDir[slnDir]+'\'+ALLTRIM(slaADIR[slnFor,1])
> ENDIF
> ENDFOR
> ENDIF
> slnDir = slnDir+1
>ENDDO
>
>would the result be the same (except for fewer directories)?
>
>Thanks in advance.
