anchor.diff:  	Result := High(Int64);
   end;
   
  +class function TAbZipArchive.SupportsEmptyFolder: Boolean;
  +begin
  +	Result := True;
  +end;
  +
   end.
   
   
  
positive.code:       {append the central directory}
        FInfo.StartDiskNumber := SCurrentImage;
        FInfo.DirectoryOffset := SCurrentOffset;
        CDHStream.Position := 0;
        NewStream.CopyFrom( CDHStream, CDHStream.Size );
  
        { we're not sure if the CDH may span disks }
        if (SpanningThreshold > 0) then
  
negative.code:          RenameFile(ChangeFileExt(FArchiveName,'.z' + IntToStr(SCurrentImage+1)),FArchiveName);
          // SCurrentImage > 0 only if FStream is a Spanned Archive.
          //Note: Possible memory leak
          // Open the Split archive for reading to duplicate behavior of single file archives.
          FStream := TAbSpanstream.Create(ArchiveName, fmOpenRead or fmShareDenyWrite,
            MediaType, FSpanningThreshold);
  