Private Function GetFiles(ByVal path As String, ByVal searchMask As String, _
      ByVal searchSubDirs As Boolean) As FileInfo()
        Dim searchMasks() As String = Split(searchMask, ";")
        Dim files As New ArrayList
        Dim di As New DirectoryInfo(path)
        GetFiles(files, di, searchmasks, searchSubDirs)
        Return files.ToArray(GetType(FileInfo))
    End Function
 
    Private Sub GetFiles(ByVal files As ArrayList, ByVal di As DirectoryInfo, _
      ByVal searchMasks As String(), ByVal searchSubDirs As Boolean)
        Try
            For Each mask As String In searchMasks
                files.AddRange(di.GetFiles(mask.Trim()))
            Next
 
            If searchSubDirs Then
                For Each di In di.GetDirectories()
                    Application.DoEvents()
                    GetFiles(files, di, searchMasks, searchSubDirs)
                Next
            End If
        Catch
        End Try
    End Sub

        For Each file As FileInfo In GetFiles("C:\", "*.dll; *.exe", True)
            ListBox2.Items.Add(file.Name)
        Next