如何在桌面上查找和删除重复文件并仅保留一个文件

Question

大家好， 我想知道如何在桌面上查找和删除重复文件，并且只保留一个文件 ，谢谢提前

Note：此问题总结整理于:How to find and delete duplicate files on desktop and keep only one file

Answer 1

请看下面的例子。

    Dim groups = (New DirectoryInfo(Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory))).  
        GetFiles("*.rdp").GroupBy(Function(file) file.Name).Where(Function(group) group.Count() > 1)  
    For Each group In groups  
        Dim needDelete As Boolean = False  
        For Each file In group  
            ' Delete all deplicate files except the first one  
            If needDelete Then  
                file.Delete()  
            End If  
            needDelete = True  
        Next  
    Next  

该代码将删除桌面上所有同名的 deplicate rdp 文件。

---

如果答案是正确的，请点击“接受答案”并点赞。 如果您对此答案还有其他疑问，请点击“评论”。

注意：如果您想接收相关电子邮件，请按照我们的文档中的步骤启用电子邮件通知 此线程的通知。