.NET 2.x Отобрать файлы по их расширению и записать имена в текстовый файл - Visual Basic .NET
Формулировка задачи:
Добрый день. Проблема такая: нужно отбирать файлы по их расширению, и исходя из этого, записывать в текстовый файл только названия нужных файлов. Вот код, немного безобразный, но все же:
В итоге программа все равно записывает все файлы, т.е. условие отбора по расширению не работает. В чем может быть ошибка? Заранее спасибо!
Решение задачи: «.NET 2.x Отобрать файлы по их расширению и записать имена в текстовый файл»
textual
Листинг программы
Dim Names As New List(Of String) Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Search("C:\Users", New String() {"*.txt", "*.mp3", "*.gif", "*.flp", "*.wav", "*.jpg"}) IO.File.WriteAllLines("C:\XFiles.txt", Names.ToArray, System.Text.Encoding.Default) End Sub Private Sub Search(ByVal fold As String, ByVal ParamArray mask() As String) Dim Dirs As String() Dim files As String() Dim cdir As String Try For Each M As String In mask files = System.IO.Directory.GetFiles(fold, M) If files.Length > 0 Then Names.AddRange(files) Application.DoEvents() Next Dirs = System.IO.Directory.GetDirectories(fold, "*", IO.SearchOption.TopDirectoryOnly) Catch ex As Exception End Try If Not Dirs Is Nothing Then For Each cdir In Dirs Me.Search(cdir, mask) Next End If End Sub