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

    {*****************************************************************************
     * Function ...... IsDir()
     * Purpose ....... To check for the existance of a directory
     * Parameters .... Dir        Dir to check for
     * Returns ....... TRUE if Dir exists
     * Notes ......... None
     * Author ........ Martin Richardson
     * Date .......... May 13, 1992
     *****************************************************************************}
    FUNCTION IsDir( Dir: STRING ) : BOOLEAN;
    VAR
       fHandle: FILE;
       wAttr: WORD;
    BEGIN
         WHILE Dir[LENGTH(Dir)] = '\' DO DEC( Dir[0] );
         Dir := Dir + '\.';
         ASSIGN( fHandle, Dir );
         GETFATTR( fHandle, wAttr );
         IsDir := ( (wAttr AND DIRECTORY) = DIRECTORY );
    END;

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