[Back to DIRS SWAG index] [Back to Main SWAG index] [Original]

    Procedure ClrDir ( path : pathStr );

    Var FileInfo : searchRec;
        f        : File;
        path2    : pathStr;
        s        : String;

    begin FindFirst ( path + '\*.*', AnyFile, FileInfo );
          While DosError = 0 Do
          begin if (FileInfo.Name[1] <> '.') and (FileInfo.attr <> VolumeId) then
                  if ( (FileInfo.Attr and Directory) = Directory ) then
                    begin Path2 := Path + '\' + FileInfo.Name;
                          ClrDir ( path2 );
                    end
                else
                  if ((FileInfo.Attr and VolumeID) <> VolumeID) then begin
                    Assign ( f, path + '\' + FileInfo.Name );
                    Erase ( f );
                  end;

                FindNext ( FileInfo );
          end;

          if (DosError = 18) and not ((Length(path) = 2)
                                       and ( path[2] = ':')) then
            RmDir ( path );

    end;

[Back to DIRS SWAG index] [Back to Main SWAG index] [Original]