>>LPARAMETERS tcStartPoint, tnParentId >>LOCAL lnFileNumber, lnMenuId, lnCount, arr >>WITH This >> DIMENSION arr (1, 1) >> IF !USED('tree') >> CREATE CURSOR tree (menuid I, parentid I NULL, name char(100), folder I DEFAULT 1) >> APPEND BLANK >> REPLACE menuid WITH 1, ; >> parentid WITH NULL, ; >> name WITH 'Customer Documents' >> ENDIF >> SELECT tree >> lnFileNumber = ADIR(arr, tcStartPoint, 'D') >> FOR lnCount = 1 TO lnFileNumber >> IF arr(lnCount, 1) = '.' >> LOOP >> ENDIF >> >> GO BOTTOM >> lnMenuId = menuid + 1 >> APPEND BLANK >> REPLACE menuid WITH lnMenuId, ; >> parentid WITH IIF(RECCOUNT() = 1, NULL, tnParentId), ; >> name WITH IIF(RECCOUNT() = 1, 'Customer Documents', arr(lnCount, 1)) >> IF AT('D', arr(lnCount, 5)) # 0 >> .mBuildCustomerDocumentStructure(STRTRAN(tcStartPoint, '*.*', '') + arr(lnCount, 1) + '\*.*', menuid) >> ELSE >> REPLACE folder WITH 0 >> ENDIF >> ENDFOR >>ENDWITH >>>>>Hi Mark,