[Resolvido]Listar Arquivos em pasta definida.

Galera,
Bom Dia,
Em meu BD tenho um Botão onde o Usuario clica, e ele cria uma pasta com o cod do processo, abre o o Bronwser para o usuario escolher o arquivo que deseja copiar para essa pasta e copia.
Até ai ta funcionando Lindo.
O que preciso é que se list os arquivos que estão nessa pasta criar em um campo do Form.

Já dei uma pesquisada e não achei algo parecido.
Tem como?

Ola Daniel;

Tem de inserir uma ListBox desvinculada no seu form;

Private Sub SeuBotao_Click()
'Requer a referencia VBA, Microsoft Scripting Runtime, marcada
Dim strDiretorio, strPasta, strFicheiros
strDiretorio = "C:\SuaPasta\"

Set fso = CreateObject("Scripting.FileSystemObject")
Set strPasta = fso.GetFolder(strDiretorio)
Set strFicheiros = strPasta.files

    Me.List6.RowSourceType = "Value List"
    
    For Each file In strFicheiros
    Me.List6.AddItem (file.Name)
    Next
End Sub

Grande Mestre.

Perfeito joguei ele no current do form. Assim não preciso clicar em nada.

Muito Obrigado.

Obrigado pelo retorno o forum agradece.

Estou reabrindo o tópico pq quero aproveitar o tópico para perguntar se teria como nessa caixa de listagem que é gerada, clicar no nome que é listado e ao clicar o arquivo é aberto, no caso uma foto.

Teste;

Private Sub SuaLista_Click()
Dim strDiretorio As String
strDiretorio = "C:\SuaPasta\"
    FollowHyperlink strDiretorio & Me.SuaLista.Value
End Sub

Ok, deu certo, mas fiz de outra maneira, coloquei para ser exibido em uma imagem.picture

Boas

Como fizeste isto?
"Em meu BD tenho um Botão onde o Usuario clica, e ele cria uma pasta com o cod do processo, abre o o Bronwser para o usuario escolher o arquivo que deseja copiar para essa pasta e copia."

Podes postar isso? era mesmo o que precisava de adaptar para o meu bd e não consigo!

Obrigado!