Jump to content
Fórum Script Brasil
  • 0

Formulário para "Pesquisar" e abrir um aquivo


EVALDO_SOARES

Question

Boa noite !

Adaptei um formulário para listar e exibir os arquivos de um determinado diretório, funciona perfeitamente, porém gostaria de criar um textbox para filtro, como é feito por exemplo no explore DO WINDOWS dentro de uma pasta.

Travei nessa parte de filtrar o arquivo caso tenha uma lista muito grande, e não consigo evoluir, se alguém conhecer esse recurso ou tiver um outro projeto que tenha essa finalidade.

 

Obrigado !

Segue  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 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

 

teste.jpg

Link to comment
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152.1k
    • Total Posts
      651.9k
×
×
  • Create New...