FILELISTBOX

PRIBENA 28/07/2010 13:31:36
#348702
Gostaria de fazer uma busca num FileListBox onde pesquisasse o nome do arquivo que contem algo que eu digitei na caixa de texto ...
Por ex. Poderia ser assim carrega o file list daí eu digito o nome e tento pesquisar aí ele insere os que contem o que eu digitei numa outra list ...
Alguém pode me ajudar?
PRIBENA 28/07/2010 14:55:07
#348709
Private Sub btPesquisaArquivo_Click()
Dim I As Integer
Dim j As Integer

On Error GoTo tratarErros

List1.Clear

[ô]se não informou o texto emite aviso ao usuario
If txtNomeArq.Text = [Ô][Ô] Then
strMsg = [Ô]Não foi informado nenhum texto para localizar.[Ô] & vbCrLf & vbCrLf
strMsg = strMsg & [Ô]Informe um texto.[Ô]
MsgBox strMsg, vbCritical, [Ô]Texto não informado[Ô]
txtNomeArq.SetFocus
Exit Sub
End If

[ô]percorre o filelistbox para encontrar arquivos com o texto
For j = 0 To lbArquivos.ListCount
[ô]verifica se o arquivo contem o texto da caixa
For I = 1 To Len(lbArquivos.List(j))
If txtNomeArq.Text = Mid(lbArquivos.List(j), I, Len(txtNomeArq.Text)) Then
List1.AddItem lbArquivos.List(j)
End If
Next
Next

Exit Sub
tratarErros:
showError sModuloAtivo.modulo, gsNomeFuncao, gsNomeMetodoOrigem, Err.Number, Err.Description
limparVariaveisFuncaoOrigemErro

End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar