Pesquisa e "Filtro de arquivo em um diretório"

[EVALDO_SOARES]

Prezados,

 

adaptei um projeto com um formulário para abrir e mostrar arquivos de uma devida pasta. Porém gostaria de implementar o filtro avançado, ou seja, pesquisa por arquivos, por exemplo que comecem com  Leit*.*, cou simplesmente digitando as letras Leit e já aparecer no objeto WebBrowser, como funciona por exemplo no explore do Windows. Funciona bem até abrir a pasta e exibir os aquivos, travei em tentar filtrar.

 

Eis o código do Formulário.

===============================================

Private Sub anterior_Click()

On Error Resume Next
WebBrowser.GoBack
proximo.Enabled = True

End Sub

Private Sub CommandButton1_Click()
On Error Resume Next

WebBrowser.GoForward
UserForm_Initialize

End Sub

Private Sub Image11_Click()
On Error Resume Next

WebBrowser.GoForward
UserForm_Initialize

End Sub

Private Sub endereço_Change()

End Sub

Private Sub Image12_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)

End Sub

Private Sub Image12_Click()
On Error Resume Next
'WebBrowser.Navigate endereço.Value

ActiveWorkbook.FollowHyperlink Address:="C:\TESTE", NewWindow:=True

End Sub

Private Sub ir_Click()
On Error Resume Next
'WebBrowser.Navigate endereço.Value

ActiveWorkbook.FollowHyperlink Address:="C:\TESTE", NewWindow:=True

End Sub

Private Sub proximo_Click()
On Error Resume Next

WebBrowser.GoForward
UserForm_Initialize

End Sub

Private Sub TextBox1_Change()
End Sub

Private Sub UserForm_Initialize()
'endereço = ActiveWorkbook.Path & "\"
endereço = "C:\TESTE"

WebBrowser.Navigate endereço.Value
endereço = WebBrowser.LocationURL
WebBrowser.SetFocus
End Sub

Private Sub WebBrowser_StatusTextChange(ByVal Text As String)

endereço = WebBrowser.LocationURL

End Sub
==========================================================

O projeto é simples, poucas linhas de código, se precisar eu envio por e-mail para maior entendimento.

 

Obrigado !