Visual Basic Request: удалять файлы определенного расширения, но опускать имена файлов того же расширения, которые находятся в текстовом файле

Question

У меня есть вопрос, который я пробовал искать, но я не могу найти учебники по нему.

Я надеюсь использовать консольное приложение для удаления файлов определенного расширения, например .zip-файлов, но опустить удаление файлов с тем же расширением, имена файлов которого находятся в текстовом файле.

Пример содержимого в текстовом файле:

Folder1 \ filename1.zip

folder2 \ filename2.zip

Filename3.zip

Filename4.zip

Каждый имена файлов записываются отдельной строкой в ​​текстовом файле. Как вы можете видеть, некоторые zip-файлы находятся в корневом каталоге, где находится консольное приложение, а некоторые из них находятся в папках в корневом каталоге.

Я пробовал использовать My.computer.filesystem.getfiles и искать все уровни для «* .zip», а затем мне не удалось продолжить, поскольку я не уверен, как удалить все zip-файлы, которые не найдены в тексте файл.

Было бы очень признательно, если кто-нибудь сможет показать мне пример кода о том, как это сделать в консольном приложении.

Если не слишком много проблем, возможно также показать пример кода для обратного, где удаляются только файлы zip, имена файлов которых находятся в текстовом файле.

Я замечаю, что когда в именах файлов есть символы «и», а при попытке удалить файл с помощью My.computer.filesystem.deletefile будет отображаться некорректная символьная ошибка (если я помню код правильно). Я попытался найти учебники, но это не сработало для меня. Если это возможно, может показаться и пример кода. Было бы неплохо также объяснить, как это работает, если это возможно, поскольку мне любопытно узнать, как будет работать код. Спасибо.

Извините, что я все еще новичок, пытаясь прочитать из других примеров коды, чтобы понять, как это работает и применять его. Спасибо. Ценить это.

В настоящее время я использую язык программирования Visual Basic для кодирования.

Answer 1

Вы не можете назвать файл незаконным символом, поэтому как его удалить?

Dim txtFile As String = IO.File.ReadAllText("PATH Here") 
     Dim TheNewJ As New List(Of String) 
     For Each Path As String In Split(txtFile, vbCrLf) 
      If Path.Trim <> "" Then 
       If Path.EndsWith(".zip") Then 
         If IO.File.Exists(Path) Then 
         TheNewJ.Add(Path) 
        End If 
       End If 
      End If 
     Next 
     txtFile = Join(TheNewJ.ToArray, vbCrLf + vbCrLf) '2 of vbcrlf to add the line,1 without line