Utilizo a função abaixo para retornar todo conteúdo de uma determinada pasta. Só que a função retorna todo tipo de arquivo, e eu queria que ela retornasse apenas arquivos ".mid" e ".mp3". Como fazer esta adaptação???
Option Explicit
Private Declare Function SendMessageStr Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Private Sub ListaArquivos(Componente As Control, Caminho As String)
Call SendMessageStr(Componente.hWnd, &H18D, &H10 Or &H20, Caminho)
End Sub
Private Sub Form_Load()
Call ListaArquivos(List1, "C:*.*")
End Sub
Agradeço qualquer ajuda!
