MyTetra Share
Делитесь знаниями!
Поиск файлов на диске
25.03.2018
00:28
Раздел: VB

Поиск файлов на диске


2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

    Sub GetFindSub(ByVal d As String, ByVal f As String)

        Try

            Application.DoEvents()

            Dim ListFiles As String() = IO.Directory.GetFiles(d, f)

            Dim ListFolders As String() = IO.Directory.GetDirectories(d)

            For Each item In ListFiles

                ListBox1.Items.Add(item)

            Next

            For Each item In ListFolders

                GetFindSub(item, f)

            Next

        Catch ex As Exception

        End Try

    End Sub

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

        GetFindSub("C:\", "*.txt")

    End Sub

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования