FILEINDISK() VFP Function

FUNCTION FileInDisk
LPARAMETERS zcFileName
IF TYPE("zcFileName") <> "C"
    RETURN .F.
ENDIF
LOCAL ARRAY laJunk[1] 
RETURN (ADIR(laJunk, zcFileName, "ARS") > 0)