>>>>FUNCTION makelist >>>>LPARAMETERS tcZipList >>>>LOCAL lnHandle, loProject >>>> >>>>loProject = _vfp.ActiveProject >>>>lnHandle = FCREATE( (tcZipList)) >>>> >>>>FOR lnI = 1 TO loProject.FILES.COUNT >>>> lcFilePath = ADDBS( JUSTPATH( loProject.FILES[lnI].NAME)) >>>> lcFileName = JUSTSTEM( loProject.FILES[lnI].NAME) >>>> lcFileExt = UPPER(JUSTEXT( loProject.FILES[lnI].NAME)) >>>> DO CASE >>>> * forms >>>> CASE lcFileExt = "SCX" >>>> FPUTS( lnHandle, loProject.FILES[lnI].NAME) >>>> FPUTS( lnHandle, lcFilePath+lcFileName+".SCT" ) >>>> * classlibs >>>> CASE lcFileExt = "VCX" >>>> FPUTS( lnHandle, loProject.FILES[lnI].NAME) >>>> FPUTS( lnHandle, lcFilePath+lcFileName+".VCT" ) >>>> >>>> * databasecontainers >>>> CASE lcFileExt = "DBC" >>>> FPUTS( lnHandle, loProject.FILES[lnI].NAME) >>>> FPUTS( lnHandle, lcFilePath+lcFileName+".DCT" ) >>>> FPUTS( lnHandle, lcFilePath+lcFileName+".DCX" ) >>>> >>>> * reports >>>> CASE lcFileExt = "FRX" >>>> FPUTS( lnHandle, loProject.FILES[lnI].NAME) >>>> FPUTS( lnHandle, lcFilePath+lcFileName+".FRT" ) >>>> >>>> *labels >>>> CASE lcFileExt = "LBX" >>>> FPUTS( lnHandle, loProject.FILES[lnI].NAME) >>>> FPUTS( lnHandle, lcFilePath+lcFileName+".LBT" ) >>>> >>>> * database tables >>>> CASE lcFileExt = "DBF" >>>> * >>>> FPUTS( lnHandle, loProject.FILES[lnI].NAME) >>>> * >>>> IF FILE( lcFilePath+lcFileName+".CDX" ) >>>> FPUTS( lnHandle, lcFilePath+lcFileName+".CDX") >>>> ENDIF >>>> * >>>> IF FILE( lcFilePath+lcFileName+".FPT" ) >>>> FPUTS( lnHandle, lcFilePath+lcFileName+".FPT") >>>> ENDIF >>>> >>>> * any other file in the project >>>> OTHERWISE >>>> FPUTS( lnHandle, loProject.FILES[lnI].NAME) >>>> ENDCASE >>>> >>>>ENDFOR >>>>FCLOSE( lnHandle ) >>>>>>>>