2014-11-25

FILEINDISK() VFP Function

FUNCTION FileInDisk
LPARAMETERS zcfilename
IF TYPE("zcfilename") <> "C"
    RETURN .F.
ENDIF
DIMENSION laJunk[1] &&' so it is local
RETURN (ADIR(laJunk, zcfilename, "ARS") > 0)

No comments:

Post a Comment