Spanish Función DIR() de vb6 - SOLUCIONADO

Carlos Clemente

Member
Licensed User
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

Member
Licensed User
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
 
Top