hi everybody,

i want to do a backup with vfpcompress.
I want to know which files are active.
How can i do ?

 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