how to find files on Harddisk with specified extension

[ben cena]

Hi,
I've a problem which is I need to find file with specified extensions on Harddisk ( on all drives )
please can any one help me

[David Gluth]

    Dim ListOfFileTypes() As String
 
    Private Sub ListFiles()
        ' an array to hold the file types I am searching for
        Array.Resize(ListOfFileTypes, 2)
        ListOfFileTypes.SetValue("*.Wav", 0)
        ListOfFileTypes.SetValue("*.PDF", 1)
 
        ' Loop throug all the drives on the computer
        For Each drive As System.IO.DriveInfo In My.Computer.FileSystem.Drives
            If drive.IsReady = True Then
                ' search for files in the root of the drive
                SearchRoot(drive.Name)
                For Each SubDir As String In My.Computer.FileSystem.GetDirectories(drive.Name)
                    ' search for files in the folders
                    SearchDirectories(SubDir)
                Next
            End If
        Next
 
    End Sub
 
    ' MsgBox used here for simplicity - replace with routine to store / display the files as you wish
    Private Sub SearchRoot(ByVal RootDir As String)
        For Each FileName As String In My.Computer.FileSystem.GetFiles(RootDir, FileIO.SearchOption.SearchTopLevelOnly, ListOfFileTypes)
            MsgBox(FileName)
        Next
    End Sub
 
    Private Sub SearchDirectories(ByVal SubDir As String)
        Try
            For Each FileName As String In My.Computer.FileSystem.GetFiles(SubDir, FileIO.SearchOption.SearchAllSubDirectories, ListOfFileTypes)
                MsgBox(FileName)
            Next
        Catch ex As Exception
            ' Typically an error here is access denied issued by some system folders
            ' This catch will list the folder that wasn't saerched and why whith your file list
            MsgBox("## " & ex.Message & " " & SubDir)
        End Try
    End Sub