home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / dirs.swg / 0006_DELTREE.PAS.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-28  |  896 b   |  29 lines
  1. Procedure ClrDir ( path : pathStr );
  2.  
  3. Var FileInfo : searchRec;
  4.     f        : File;
  5.     path2    : pathStr;
  6.     s        : String;
  7.  
  8. begin FindFirst ( path + '\*.*', AnyFile, FileInfo );
  9.       While DosError = 0 Do
  10.       begin if (FileInfo.Name[1] <> '.') and (FileInfo.attr <> VolumeId) then
  11.               if ( (FileInfo.Attr and Directory) = Directory ) then
  12.                 begin Path2 := Path + '\' + FileInfo.Name;
  13.                       ClrDir ( path2 );
  14.                 end
  15.             else
  16.               if ((FileInfo.Attr and VolumeID) <> VolumeID) then begin
  17.                 Assign ( f, path + '\' + FileInfo.Name );
  18.                 Erase ( f );
  19.               end;
  20.  
  21.             FindNext ( FileInfo );
  22.       end;
  23.  
  24.       if (DosError = 18) and not ((Length(path) = 2)
  25.                                    and ( path[2] = ':')) then
  26.         RmDir ( path );
  27.  
  28. end;
  29.