[Back to FILES SWAG index]  [Back to Main SWAG index]  [Original]

{*****************************************************************************
 * Function ...... Exist()
 * Purpose ....... Checks for the existance of a file/directory
 * Parameters .... sExp       File/directory name to check for
 * Returns ....... TRUE if sExp exists
 * Notes ......... Not picky, will even accept wild cards
 * Author ........ Martin Richardson
 * Date .......... May 13, 1992
 *****************************************************************************}
FUNCTION Exist( sExp: STRING ): BOOLEAN;
VAR s : SearchRec;
BEGIN
     FINDFIRST( sExp, AnyFile, s );
     Exist := (DOSError = 0);
END;

[Back to FILES SWAG index]  [Back to Main SWAG index]  [Original]