删除列表中未找到的所有文件扩展名的文件

Question

我有一个从文本文件中读取的列表框，用户可以在其中添加和删除文件扩展名类型，这将编译要排除在删除之外的文件列表。

如何对 vb.net 进行编程以删除给定目录示例 C:\MYFILES 中的所有文件（除非在我的列表中找到）？

Answer 1

这将删除给定目录中扩展名不在排除列表中的所有文件：

Dim exclude = ListBox1.Items.Cast(Of Object).Select(Function(i) i.ToString)
Dim delQ = From path In IO.Directory.GetFiles("C:\MYFILES")
           Where Not exclude.Contains(IO.Path.GetExtension(path))
           Select New IO.FileInfo(path)
For Each delFile In delQ
    delFile.Delete()
Next

_{不要忘记文件扩展名中的点(fe .txt)}