如何从一个文件中删除另一个文件的重复项

问题描述：从文件夹A中删除文件夹B的相同内容，即A-B

算法：对文件夹A和B进行扫描，分别得出一个棵树，删除树A中与树B相同的部分

软件缺陷：Fast Duplicate File Finder 2.0.0.1可以扫描出两个文件重复的内容，但是不能实现从A中去除B中的内容，也就是，不能进行A-B的操作。

Mathematica 代码实现：

MinusFile[file1_, file2_] := Module[{Size, i},
   SetDirectory[file2];
   Dir2 = FileNames[];
   SetDirectory[file1];
   Dir1 = FileNames[];
   Size = Length[Dir2];
   For[i = 1, i <= Size, ++i,
    If[MemberQ[Dir1, Dir2[[i]]],
      DeleteFile[Dir2[[i]]];
      Print[" " Dir2[[i]], " is deleted."];
      ];  
    ];
   ];

运行示例：

文件夹A的路径是E:\Example\CPC\EX4\A，文件夹B的路径是E:\Example\CPC\EX4\B. 文件夹A中的文件有 fan1.nb, fan2.nb, fancpc.nb, fan.nb， 文件夹B中的文件有 fan1.nb, fan.nb，运行如下：

MinusFile["E:\\Example\\CPC\\EX4\\A", "E:\\Example\\CPC\\EX4\\B"]

  fan1.nb is deleted.

  fan.nb is deleted.

此时，文件夹A中只剩下 fan2.nb, fancpc.nb，文件夹B中的原封不动。

启发：可以类似地定义文件夹上的“和”，“差”，“交”等操作.