IF VARTYPE(_vfp.ActiveProject) <> 'O' RETURN ENDIF *!* CREATE CURSOR projectfiles (cfile c(254)) *!* LOCAL loFile *!* FOR EACH loFile IN _vfp.ActiveProject.Files *!* INSERT INTO projectfiles VALUES (m.loFile.Name) *!* ENDFOR CREATE CURSOR projectfiles (cfile c(254), cpath c(254)) INDEX ON (LEFT(cfile,120)+LEFT(cpath,120)) COLLATE 'machine' TAG x LOCAL loFile FOR EACH loFile IN _vfp.ActiveProject.Files INSERT INTO projectfiles VALUES ( ; JUSTFNAME(m.loFile.Name), ; JUSTPATH(m.loFile.Name) ; ) ENDFOR GO TOP BROWSE LAST NOWAIT