FUNCTION NetFile
* Checks all network drives for the
* existence of a file
LPARAMETER pcfile
* The fully qualified file name
LOCAL lni, lcfile, lldone, lcdrive, lcresult
STORE "" TO lcdrive, lcresult
lni = 69
lldone = .F.
lcfile = pcfile
IF NOT EMPTY(JustDrive(lcfile))
lcfile = SUBSTR(lcfile, 3)
ENDIF
DO WHILE lni < 90 AND NOT lldone
lni = lni + 1
lcdrive = CHR(lni) + ":"
IF DriveType(lcdirve) = 4
lldone = FILE(lcdrive + lcfile)
ENDIF
ENDDO
IF lldone
* Found it
lcresult = lcdrive
ENDIF
RETURN lcresult
hth,George
Ubi caritas et amor, deus ibi est