how to know if it 's a network drive ?



>thanks sergey !
>
>it's ok on a local drive too ?
>
>bernhart
>
>>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
>>>
>>>