Search Files on hardrive

[hendrikbez]

I am using this code to get files, but I can not get it to search for all files on C: drive.
How can I get it to show all files Like *.pdf of the drive in the list box

Imports System.IO
Imports System
Imports System.Drawing
Imports System.Windows.Forms
 
Public Class SearchAvi
 
    Private Sub BtnGetAviFiles_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGetAviFiles.Click
 
        Dim dir1 As New IO.DirectoryInfo("c:")
        Dim dir2 As IO.FileInfo() = dir1.GetFiles()
        Dim files1 As IO.FileInfo
 
        For Each files1 In dir2
            FrmListBox.Items.Add(files1)
        Next
 
    End Sub