.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

Оцени полезность:

8   голосов , оценка 3.75 из 5
Похожие ответы