Spanish Función DIR() de vb6 - SOLUCIONADO

[Carlos Clemente]

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.

 

[Carlos Clemente]

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