thank naomi,

if the file is data33.txt ?




>The check would be to try fopen('myFile',12) and close it right after.
>
>>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
>>
>>