Spanish Función DIR() de vb6 - SOLUCIONADO

Buenas,

Quisiera saber como consukltar todos los archivos *.* o *.jpg de mi carpeta de aplicación y por supuesto
recorrer el array para usar los datos. He buscado por el foro pero no he sabido encontrarlo.

Gracias.

Lo encontre....

Dim lista As List
Dim archivo As String
Dim ruta as string

If File.ExternalWritable Then
ruta=File.DirDefaultExternal
Else
ruta= File.DirInternal
End If


lista= File.ListFiles(ruta)

If lista.Size>0 Then
For i=0 To lista.Size -1
archivo=lista.Get(i)
If Left(archivo,5)="Firma" Then
SMTP.AddAttachment(ruta,archivo)
End If
Next
End If