Tomás Vásquez Fórum

Boa tarde. tenho um necessidade de trabalho e encontrei no Blog um código com título "EXCEL – LISTAR ARQUIVOS EM DIRETÓRIO NUM LISTBOX" e precisaria de uma adaptação do mesmo, é o seguinte:
Consulto arquivos .jpg constantemente e para tal, adaptei o seguinte código:

Sub Teste_Fotos()

Dim Pasta As String
Dim Arquivo As String

Pasta = "C:\Users\txmarcelo.00918\Documents\Fotos Teste\"
Arquivo = Me.txtFoto.Text & ".jpg"
Shell "rundll32.exe C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscreen " & Pasta & Arquivo, vbNormalFocus

End Sub

Onde digito o nome do arquivo em txt.Foto e sou direcionado para o visualizador de imagens do Windows, já com o arquivo aberto.

Porém os produtos passaram a ter várias fotos ex: F100(1), F100(2), F100 Conj. F110, etc...
como meu código só funciona com o o nome de arquivo específco, pensei em criar uma primeira etapa onde, ao consultar um arquivo como "F100", carregasse em uma listbox todos os arquivos que contém esses caracteres em seu nome, foi aí que encontrei seu código.
Porém, ele lista todos os arquivos do diretório e não consegui adaptar um filtro para ele.

será que você pode me ajudar?
Desde já agradeço.

Marcelo Nunes,

Experimente algo como o que segue : Abs

Deu certo, tive um pouco de dificuldade em adaptar ao código por se tratar de uma funtion, que não é meu forte, mas ficou ótimo.
Obrigado Srobles.
Não estou conseguindo marcar como respondido !!!

Marcelo Nunes,

Que bom que funcionou meu amigo.

Quaisquer dúvidas, estamos aí.

Abs

É importante resaltar que esse tópico é para serviços e não para dar suporte, pra isso existe outros tópicos. Por favor respeitar as regras. Regra desse tópico