Tengo otra consulta. En la carpeta donde busco estos .jpg hay dos .jpg y uno se llama el numero + grande + descripcion.jpg (0060 grande iglesia.jpg) y el otro archivo(que es de medida normal) se llama numero + descripcion.jpg (0060 iglesia.jpg) el tema que yo busco quiero o solo imprimir todos los que digan grande o sino los que en la el nombre de el jpg no diga grande (0060 iglesia.jpg). El programa me anda bien pero a veces me imprime las fotos grandes y a veces las comunes depende como este el archivo en el directorio. Yo iintente hacerlo buscando en la cadena pero no me salio ya que la clave me parece que esta en que pase al siguiente arhivo.
Osea si yo estoy imprimiendo en tamaño comun que me saltee las que digan grande gracias
For i = 1 To t
Path = "c:\fotos\"
Dirname = Dir(Path & b(i, 0) & "*.*", vbDirectory)
archivo = "\" & b(i, 0) & grande & "*.jpg"
'intentando hacerlo pero no salio'
Rem If InStr(Archi, "grande") Then
Rem MsgBox "Se ha encontrado grande"
Rem archivo = "\" & b(i, 0) & " *.jpg"
Rem Else
Rem MsgBox "No se ha encontrado"
Rem End If
ArchivoaBuscar = Dir(Path & Dirname & archivo)
rutafoto = Path & Dirname & "\" & ArchivoaBuscar 'ruta completa y nombre del archivo'
If (ArchivoaBuscar) = ("") Then
m = m + 1
NoSeEncontro(m, 0) = b(i, 0)
NoSeEncontro(m, 1) = b(i, 1)
NoSeEncontro(m, 2) = b(i, 2)
NoSeEncontro(m, 3) = b(i, 3)
Else
For q = 1 To b(i, 1)
opa = opa + 1
Set imagen = LoadPicture(rutafoto)
Printer.Print b(i, 0)
Printer.PaintPicture imagen, 450, 450, 4041, 4547
Printer.EndDoc
MsgBox "cantidad de copias " & q & " del " & b(i, 0)
Next q
SeEncontro(opa, 0) = b(i, 0)
SeEncontro(opa, 1) = b(i, 1)
End If
Next i
Gracias
