home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / TPROUTN.ZIP / SAMPPATH.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-05-17  |  3.3 KB  |  101 lines
  1. PROGRAM SampPth;
  2. {
  3.    This TURBO PASCAL program is used an example of how to use the
  4.    $INCLUDE file 'PATHS.PAS' which makes, deletes, changes, renames,
  5.    and otherwise gives one complete control over MS/PCDos Rel 2.0 and
  6.    up  PATH support.
  7. }
  8. type
  9.    string80 = string[80];
  10.    registers = record
  11.                ax,bx,cx,dx,bp,si,di,ds,es,flags : integer;
  12.                end;
  13. var
  14.    regs : registers;
  15.    directory : string80;
  16.    error     : integer;
  17.    path      : string80;
  18.    nothing   : string80;
  19.    tempfile  : file of string80;
  20.    Drive     : char;
  21.    DefDirect : string80;
  22.  
  23. {$I PATHS.PAS}
  24.  
  25. begin
  26.    writeln('=================================');
  27.    writeln('getting current drive');
  28.    Drive := CurrDrive;
  29.    write('Current drive is:'); writeln(drive);
  30.  
  31.    writeln('=================================');
  32.    writeln('getting free space of current drive');
  33.    write('Free Space:'); writeln(FreeSpace(drive):9:0);
  34.  
  35.    writeln('=================================');
  36.    writeln('getting current directory');
  37.    CurrDir('A',DefDirect,error);
  38.    write('error returned was:'); writeln(error);
  39.    writeln(DefDirect);
  40.  
  41.    writeln('=================================');
  42.    writeln('creating subdirectory');
  43.    if DefDirect = '' then
  44.       directory := 'A:\TEST'                  {must have full drive/path}
  45.    else
  46.       directory := 'A:\'+DefDirect+'\TEST';
  47.    writeln(directory);
  48.    MkDir(directory,error);
  49.    write('error returned was:'); writeln(error);
  50.  
  51.    writeln('=================================');
  52.    writeln('remove subdirectory A:\TEST');
  53.    RmDir(directory,error);
  54.    write('error returned was:'); writeln(error);
  55.  
  56.    writeln('=================================');
  57.    writeln('recreating a subdirectory A:\TEST');
  58.    directory := 'A:\TEST';
  59.    MkDir(directory,error);
  60.    write('error returned was:'); writeln(error);
  61.  
  62.    writeln('=================================');
  63.    writeln('changing to that directory');
  64.    ChDir(directory,error);
  65.    write('error returned was:'); writeln(error);
  66.  
  67.    writeln('=================================');
  68.    writeln('creating dummy file on directory');
  69.    Assign(TempFile,'A:TempFile.XXX');
  70.    Rewrite(TempFile);
  71.    Close(TempFile);
  72.  
  73.    writeln('=================================');
  74.    Writeln('changing logged on drive to A:');
  75.    ChgDrive('A');
  76.  
  77.    writeln('=================================');
  78.    writeln('renaming file on A:\TEST to root directory (now logged on)');
  79.    Directory := 'A:\TEST\TempFile.XXX';
  80.    Path := 'A:\RenFile.YYY';
  81.    RenFile (Directory,Path,error);
  82.    write('error returned was:'); writeln(error);
  83.  
  84.    writeln('=================================');
  85.    writeln('creating another dummy file on A:\TEST');
  86.    Assign(TempFile,'A:TempFile.NEW');
  87.    Rewrite(TempFile);
  88.    Close(TempFile);
  89.  
  90.    writeln('=================================');
  91.    writeln('now deleteing the file');
  92.    directory := 'A:\TEST\TempFile.NEW';
  93.    DelFile(directory,error);
  94.    write('error returned was:'); writeln(error);
  95.  
  96.    writeln('=================================');
  97.    writeln('cleaning up, back to the defaults');
  98.    ChgDrive(Drive);
  99.    ChDir(DefDirect,error);
  100.  
  101. END.