Private Shared arFiles() As String
        Private Shared nCountFound As Long
        Private Shared nCountAr As Long
        Public Shared Function Search(ByVal inDirectorie As String, ByVal Which _
          As String) As String()
 
            arFiles = New String() {}
            nCountFound = 0
            nCountAr = 0
            Dim StartPath As String = inDirectorie
            Dim SearchAt As String = Which
 
            MyGetFiles(StartPath, SearchAt, True)
 
            Return arFiles
        End Function
 
        Private Shared Sub MyGetFiles(ByVal MyPath As String, ByVal _
          SearchString As String, Optional ByVal isFirst As Boolean = False)
            If isFirst = True Then
                nCountAr = 0
                nCountFound = 0
            End If
            Dim x As Long
 
            Dim arCurrentFolders() As String = Directory.GetDirectories(MyPath)
 
            For x = 0 To arCurrentFolders.Length - 1
                MyGetFiles(arCurrentFolders(x), SearchString)
            Next
 
            Dim arCurrentFiles() As String = Directory.GetFiles(MyPath, _
              SearchString)
            For x = 0 To arCurrentFiles.Length - 1
                ReDim Preserve arFiles(nCountAr)
                arFiles(nCountAr) = arCurrentFiles(x)
                nCountAr += 1
            Next
        End Sub