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

Question

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

如何编写vb.net来删除给定目录的所有文件示例C：\ MYFILES除非在我的列表中找到？

Answer 1

这将删除给定目录中扩展名不在exclude-list中的所有文件：

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

_{不要忘记文件扩展名中的点（f.e。.txt）}