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

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）}