Удалить все файлы с расширениями, не найденными в списке

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

_{Не забыл точку в расширении файла (например, .txt)}