Imports System.IO
Public Class Form1
     'What you need to do is create a form with a list box, a buton, a label and a textbox
     'The label should read Eneter File Name Including Extension
     'The buttons text should be Get Path(s)
     ' The code runs when you press the button
     'If returning all paths be patient it can take awhile depending on how may drives you have

     'Declare constants and variables we need
     Private Declare Function GetDriveType Lib "kernel32" _
    Alias "GetDriveTypeA" _
   (ByVal nDrive As String) As Integer

     Private Const DRIVE_UNKNOWN As Long = 0
     Private Const DRIVE_NO_ROOT_DIR As Long = 1
     Private Const DRIVE_REMOVABLE As Long = 2
     Private Const DRIVE_FIXED As Long = 3
     Private Const DRIVE_REMOTE As Long = 4
     Private Const DRIVE_CDROM As Long = 5
     Private Const DRIVE_RAMDISK As Long = 6

     Public Sub AllFixedDriveSearch()
         If Me.TextBox1.Text = "" Then
             MsgBox("Enter Files Name Including Extension")
             Me.TextBox1.Focus()
             Exit Sub
         End If

         Me.Text = "Busy Searching All Fixed Hard Drives"

         Dim drvs() As String
         Dim list As New List(Of String)

         drvs = _
        System.IO.Directory.GetLogicalDrives()

         For i = drvs.GetLowerBound(0) To drvs.GetUpperBound(0)

             If GetDriveType(drvs(i)) = DRIVE_FIXED Then

                 ' Get recursive List of all files starting in this directory.
                 'list = System.Environment.GetFolderPath(drvs(i))
                 list = GetFilesRecursive(drvs(i))

                 ' Loop through and display each path.
                 For Each path In list
                     Me.ListBox1.Items.Add(path)
                     'Comment out next If Staement if you want to bring back all existing file paths
                     If ListBox1.Items.Count = 1 Then
                         Me.Refresh()
                         Me.Text = "Here is First Path"
                         Exit Sub
                     End If
                 Next
             End If
         Next i

         If list.Count < 1 Then

             Exit Sub
         End If
         Me.Refresh()
         Me.Text = "Here Are Path's"
     End Sub

     ''' <summary>
     ''' This method starts at the specified directory, and traverses all subdirectories.
     ''' It returns a List of those directories.
     ''' </summary>
     Public Function GetFilesRecursive(ByVal initial As String) As List(Of String)
         ' This list stores the results.
         Dim result As New List(Of String)

         ' This stack stores the directories to process.
         Dim stack As New Stack(Of String)

         ' Add the initial directory
         stack.Push(initial)

         ' Continue processing for each stacked directory
         Do While (stack.Count > 0)
             ' Get top directory string
             Dim dir As String = stack.Pop
             Try
                 ' Add all immediate file paths
                 result.AddRange(Directory.GetFiles(dir, "*" & TextBox1.Text & "*"))
                 'Comment out next If Staement if you want to bring back all existing file paths
                 If result.Count = 1 Then
                     Return result
                     Exit Function
                 End If

                 ' Loop through all subdirectories and add them to the stack.
                 Dim directoryName As String
                 For Each directoryName In Directory.GetDirectories(dir)
                     stack.Push(directoryName)
                 Next

             Catch ex As Exception
             End Try
         Loop

         ' Return the list
         Return result
     End Function

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


     Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
         Me.Text = "Search For Path(s)"
     End Sub
End Class