anchor.diff:    { TDiskFileSystemManager }
   
     TDiskFileSystemManager = class(TmAbstractFileSystemManager)
  +  strict private
  +    procedure FindFolder (aFolder: TmFolder; const aScanForFiles: boolean; const aFileMask : string);
     public
       constructor Create; override;
       destructor Destroy; override;
  
positive.code:   end;
  end;
  
  procedure TDiskFileSystemManager.RegisterFileSystemFolder(const aFullPath: String; aAddChilds: boolean);
  var
    tmp : TStringList;
  begin
    FRoots.Clear;
    with FRoots.Add do
    begin
      Path:= aFullPath;
      Name := aFullPath;
  
      tmp := TStringList.Create;
      try
        ExtractStrings(AllowDirectorySeparators, [], aFullPath, tmp, false );
        Name:= tmp.Strings[tmp.Count - 1];
  
      finally
        tmp.Free;
      end;
    end;
  
  end;
  
  end.
  
negative.code:     procedure ReadStream (aFile : TmFile; aStream : TStream); override;
      procedure WriteStream (aFile : TmFile; aStream : TStream); override;
  
      procedure RegisterDiskFolder (const aFullPath : String; const aScanForFiles, aAddChilds: boolean; const aFileMask : string);
      procedure ReloadFiles (aFolder : TmFolder; aFileMask : String);
    end;
  
  implementation
  uses
    SysUtils, FileUtil;
  
  { TDiskFileSystemManager }
  
  