T A J P R O G Сешанбе, 18.06.2019, 16:03
Приветствую Вас Гость | RSS
Меню сайта

Наш опрос
Аз кадом фанн маълумотнома лозим аст!
Ҷавобҳо ҳамагӣ: 2271

Статистика

Онлайн ҳамагӣ: 2
Меҳмон: 2
Истифодабаранда: 0


22:23
Дарси 30. Ҷустуҷӯи файл дар компютер

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

               Dim x As List(Of String) = Search("G:\Itunes", "*.jpg")

    End Sub

 Private Function Search(ByVal path As String, ByVal mask As String) As List(Of String)

        Dim b As New List(Of String)

        Dim a As New List(Of String)

        Dim log As Integer = 0

        b.AddRange(IO.Directory.GetFiles(path, mask))

        a.AddRange(IO.Directory.GetDirectories(path))

        Do While a.Count <> 0

            'Application.DoEvents()

            'Me.Text = a.Count

            Try

                b.AddRange(IO.Directory.GetFiles(a(0), mask))

            Catch

                log += 1

            End Try

            Try

                a.AddRange(IO.Directory.GetDirectories(a(0)))

            Catch

                log += 1

            End Try

 

            a.RemoveAt(0)

        Loop

        Return b

    End Function

Просмотров: 133 | Добавил: aplove | Рейтинг: 0.0/0
Всего комментариев: 0
Ном *:
Email:
Код *:
Реклама

Поиск

Календарь
«  Май 2014  »
ДСЧПҶШЯ
   1234
567891011
12131415161718
19202122232425
262728293031

Архив записей

Друзья сайта

Copyright © Умаров Алибек 2019,. Все права защищены.