'Imports System
'Imports System.IO

    Sub DirSearch(ByVal sDir As String, ByVal sFile As String)

        lblDebug.Text = "Searching for: " & sFile

        Try


            Dim d As String 'Directory
            Dim f As String 'File

            'Check if Directory Exists
            If System.IO.Directory.Exists(sDir) Then
                                  
                For Each d In Directory.GetDirectories(sDir)
                    For Each f In Directory.GetFiles(d, sFile)
                        lblFound.Text = (lblFound.Text & d & " ")
                        lblFound.Text = (lblFound.Text &  f  &" " & d )
                         Next
                    lblSearched.Text = lblSearched.Text & d & ""
                    DirSearch(d, sFile)
                Next
            Else
                lblSearched.Text = lblSearched.Text & sDir & " Directory does not exist. "
            End If
        Catch excpt As System.Exception
            lblDebug.Text = "ERROR: Directory Search " & (excpt.Message)
        End Try
    End Sub