Listar archivos de un directorio

[LeandroA]

Dim ListadoFiles() As String

Private Sub Listar2(RutaDir As String)
On Error Resume Next
ReDim ListadoFiles(0)
Dim Directorios As String
Directorios = Dir(RutaDir & "*.gif")
Do While Directorios <> ""
DoEvents
ListadoFiles(UBound(ListadoFiles)) = Directorios
ReDim Preserve ListadoFiles(UBound(ListadoFiles) + 1)
Directorios = Dir
Loop
End Sub

Private Sub Command1_Click()
On Error GoTo fin
Listar2 "D:\"
MsgBox ListadoFiles(1)
Exit Sub
fin:
MsgBox "no hay imagnes .jpg"
End Sub