>>> >>> IF ZipOpen( THISFORM.cDirectory + THISFORM.cFich ) = .T. >>> *----------------------------------------------------- >>> *!* m.tcFromFolder = THIS.lcFolderName >>> m.tcFromFolder = THIS.txtdirSource.VALUE >>> m.llSuccess = .T. >>> * get all files into a cursor >>> CREATE CURSOR c_FilesToBackup ( mFileName M(4)) >>> THIS.GetAllFiles("c_FilesToBackup", m.tcFromFolder) >>> SELECT c_FilesToBackup >>> m.lnFilesToBackup = RECCOUNT("c_FilesToBackup") >>> >>> m.lnCount = 0 >>> SCAN >>> SCATTER MEMVAR MEMO >>> m.lnCount = m.lnCount + 1 >>> m.lcRelativePath = STRTRAN(STRTRAN(m.mFileName, m.tcFromFolder, ""), JUSTFNAME(m.mFileName), "") >>> IF NOT ZipFileRelative(m.mFileName, m.lcRelativePath) >>> m.llSuccess = .F. >>> EXIT >>> ENDIF >>> ENDSCAN >>> >>> IF m.llSuccess AND ZipClose() >>> m.llSuccess = .T. >>> lnretval = .T. >>> ENDIF >>> >>>