home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / GEARS.ZIP / DISKIO.DOC < prev    next >
Encoding:
Text File  |  1980-01-01  |  1023 b   |  31 lines
  1. (*****************************************************************************)
  2. (* Unit DiskIO: Extended File Handling Routines                DOCUMENTATION *)
  3. (*                                                                           *)
  4. (* Copyright 1988, Escape Technologies                                       *)
  5. (*****************************************************************************)
  6.  
  7. Unit DiskIO;
  8.  
  9. Interface
  10.  
  11. Uses Dos;
  12.  
  13. Const IOError:Word = $0;
  14.       Hidden = $2;
  15.       NoAttributes = $0;
  16.       InvalidFunction = $1;
  17.       FileNotFound = $2;
  18.       PathNotFound = $3;
  19.       AccessDenied = $5;
  20.       NoMoreFiles = 18;
  21.  
  22. { Exist Checking and Directory routines }
  23. Function Exist(FileName:String):Boolean;
  24. Procedure MakeDirectory(DirName:String; Attribute:Word);
  25. Procedure HideDirectory(DirName:String);
  26. Procedure CopyFile(InputFile,OutputFile:String);
  27.  
  28. { Filename Manipulation Functions }
  29. Function FilenameOf(Filename:String):String;
  30. Function ExtentionOf(Filename:String):String;
  31.