[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]