Check http://www.berezniker.com/content/pages/visual-foxpro/who-has-files-open-network

>
> 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
>
>