Hice un programa que imprime caratulas (JPG) en el cual en este foro me ayudaron bastante. Pero ahora se me produce una complicacion con la sentencia DIR que no solo busca carpetas sino que tambien encuentra archivos pese a que pensaba que poniendole vbDirectory solo me buscaria directorios o carpetas. En un pedido hay mas de 100 caratulas sean todas slim o grandes. Los datos a buscar(jpg) e imprimir vienen en numero de cuatro digitos, que estan en carpetas que tamben empiezan con ese mismo numero y siguen con partes de nombre que no tomo en cuenta ya que no me viene ese dato
Los dos datos son, por ejemplo:
numero cant:1256 2
0883 4
1502 1
previamente tengo el dato si es slim o grande
Voy a poner la estructura de mis carpetas para que se entienda
carpeta donde hay fotos a buscar:
"\\Ventana\G\Fotos\CARAT_A\1236 Iglesia de Lujan" rem Carpeta en red
Nombre del el archivo que esta dentro de la carpeta:
"1236 Canon ARO22 iglesia de Lujan.cld"
Otro Nombre del el archivo que esta dentro de esta carpeta:
"1236 Grande iglesia de Lujan.jpg"
Otro Nombre del el archivo que esta dentro de esta carpeta:
"1236 Slim iglesia de Lujan.jpg"
rutacompleta :
"\\Ventana\G\Fotos\CARAT_A\1236 Iglesia de Lujan"
la variable "Tipo" puede ser = "Slim" o tipo ="Grande"
'///////////////////////////////////////////////////////////////
'/ Inicio del programa de buscqueda de caratulas en rigido' /
'///////////////////////////////////////////////////////////////
For i = 1 To t ' t = cantidad de pedido'
path = "\\Ventana\g\Fotos\CARAT_" & Tipo & "\"
Numeropedido = path & pedido(i, 0) & " *.*"
dirname = Dir(Numeropedido, vbDirectory)
Archivo = pedido(i, 0) & Tamaño & "*.jpg"
MsgBox "Archivo " & Archivo
ArchivoaBuscar = Dir(path & "\" & dirname & "\" & Archivo)
RutaFoto = path & dirname & "\" & ArchivoaBuscar 'ruta completa y nombre del archivo'
next
La busqueda seria algo \\Ventana\g\Fotos\CARAT_A\1236 *.*" para encontrar el directorio pero no se porque en algunos casos me encuentra primero el archivo con exentesion cld por lo cual me da errorr. Imagino que es por una cuestion de ubicacion del archivo en el disco rigido porque en algunos casos falla y en otro no.
No puedo usar la sentencias para cambiar de directorios ya que esta en red y las sentecias son para el discos local(por lo menos es lo que creo)
Se que debe ser dificil de entender ya que me fue dificil redactarlo como para que se entienda.
Por ejemplo me falla cuando busco el "1236 *.*" tendria que posicionarse en el directorio :
"\\Ventana\G\Fotos\CARAT_A\1236 Iglesia de Lujan"
y luego dentro de este encontrar el archivo:
"1236 Slim iglesia de Lujan.jpg"
Si pongo dentro del programa
dirname = Dir(Numeropedido, vbDirectory)
msgbox dirname
me aparece "1236 Canon ARO22 iglesia de Lujan.cld"
con lo que me da error porque tendria que aparecer
Sin alguien puede ayudarme y no entendio tratare nuevamente de explicame gracias.
