home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / EXIST4.ZIP / EXIST4.INC < prev    next >
Encoding:
Text File  |  1988-04-20  |  517 b   |  29 lines
  1. {
  2.  EXIST4.INC
  3.  Procedures to check existance of a file or directory in
  4.  Turbo Pascal 4.0
  5. }
  6.  
  7. Function Exist(FileName:String80):Boolean;
  8. Var
  9.    F    : File;
  10.    fAttr : Word;
  11.  
  12. Begin
  13.    Assign(F,FileName);
  14.    GetFAttr(f,fAttr);
  15.    Exist := (fAttr <> 0) And ((fAttr AND Directory) = 0)
  16. End; { Exist }
  17.  
  18. Function DirExist(DirName:String80):Boolean;
  19. Var
  20.    F    : File;
  21.    fAttr : Word;
  22.  
  23. Begin
  24.    Assign(F,DirName);
  25.    GetFAttr(f,fAttr);
  26.    DirExist := (fAttr AND Directory) <> 0
  27. End; { Exist }
  28.  
  29.