VB captura archivos en carpetas
¿Oscuro? fs?
¿Oscuro? ¿F?
¿Oscuro? ¿fd?
¿Público? ¿tipo? ¿Archivo de imagen?
¿Nombre completo? ¿Como? ¿Cadena?
¿Fecha de creación? ¿Como? ¿Tener una cita?
¿Modificado con Lase? ¿Como? ¿Tener una cita?
¿Fin? ¿tipo?
¿Oscuro? ¿Cuento? ¿Como? ¿Entero?
¿Oscuro? arrFotos()? ¿Como? ¿Archivo de imagen?
¿Sub? prueba()?
¿Oscuro? sf? ¿Como? ¿Cadena?
¿sf? =?InputBox("¿En qué carpeta desea encontrar la imagen?"&?vbCrLf?&&Ingrese la ruta completa a continuación:?"Preguntar")? ¿Obtener la carpeta ingresada por el usuario?
¿Y si? ¿Derecha(sf,?1)?<>? "\"? ¿Y luego qué? sf? =?sf? y amplificador? ¿"\"?
¿Configuración? fs? =?CreateObject("Script.FileSystemObject ")?
¿Comprobar la validez de la entrada del usuario?
¿Abierto? ¿error? CV? ¿Próximo?
¿Configuración? ¿fd? =?fs. ObtenerCarpeta(sf)?
¿Abierto? ¿error? ¿Ir a? ¿0?
¿Y si? ¿fd? ¿Sí? ¿Nada? ¿Entonces qué?
¿Cuadro de mensajes? ¿"Entrada incorrecta"?
¿Salir? ¿Sub?
¿Fin? ¿si?
¿Obtener fotografías? sf,? ¿En realidad? Este proceso coloca la ruta completa y la fecha de creación de todos los archivos JPG, GIF y BMP de la carpeta en la matriz arrPics. El primer parámetro especifica la ruta de la carpeta y el segundo parámetro especifica si se deben buscar subdirectorios.
¿Ordenar? ¿arrFotos? ¿Ordenar archivos en una matriz por fecha de creación?
¿Oscuro? ¿shp?
l¿Izquierda? =?celda(1,?1).ancho? +?2?
¿Para qué? ¿I? =?1?¿Adónde ir? ¿UBound(arrFotos)? ¿Insertar imágenes en una hoja de trabajo una tras otra, una imagen por fila?
¿Configuración? ¿shp? =?Hoja Activa. imagen. insertar(arrPics(i)). nombre completo)?
celda(i,?1)?=?arrPics(una). ¿Nombre completo?
¿Y si? Shh. ¿altura? & lt=?389.5?¿Y luego qué? Dado que la altura máxima de fila es 409,5 puntos, ¿debo reducir la imagen si es necesario?
Fila (I). ¿Altura de fila? =?Shh. ¿altura? +?20?
¿Y si?
Fila (I). ¿Altura de fila? =?409.5?
Shh. ¿ancho? =?Shh. ¿ancho? *?389.5?/?Shh. ¿altura?
Shhh. ¿altura? =?389.5?
¿Fin? ¿si?
Shhh. ¿izquierda? =?celda(i,?2).izquierda? +?10?
Shh. ¿Arriba? =?celda(i,?2).Arriba? +?10?
¿Siguiente?
¿Configuración? ¿Foto? =?Nada?
¿Configuración? ¿F? =?Nada?
¿Configuración? ¿fd? =?Nada?
¿Configuración? fs? =?Nada?
¿Fin? ¿Sub?
¿Sub? ObtenerImágenes(sCarpeta?como?Cadena,?IncluirSubcarpetas?como?Booleano)?
¿Para qué? ¿Cada? ¿F? ¿existir? fs. ObtenerCarpeta(sCarpeta).
¿documento?
¿Y si? InStr("jpg|gif|bmp ",right(LCase(f.Nombre),?3))?& gt? 0? ¿Entonces qué?
¿Y si? ¿Cuento? =?0?¿Y entonces qué?
¿Raedim? ¿ahorrar? arrFotos(1)? ¿Como? ¿Archivo de imagen?
¿Y si?
¿Raedim? ¿ahorrar? arrPics(iCount?+?1)?como? ¿Archivo de imagen?
¿Fin? ¿si?
iCuenta? =?iCuenta? +?1?
arrPics(iCount). ¿Nombre completo? =?f .ruta?
arrPics(iCount). ¿Fecha de creación? =?f .¿Fecha de creación?
¿Fin? ¿si?
¿Hacer Eventos?
¿Siguiente?
¿Y si? ¿Incluir subcarpetas? ¿Entonces qué?
¿Para qué? ¿Cada? ¿fd? ¿existir? fs. ObtenerCarpeta(sCarpeta). ¿Subcarpeta?
¿Obtener fotografías? fd. camino,? ¿Incluir subcarpetas?
¿Siguiente?
¿Fin? ¿si?
¿Fin? ¿Sub?
¿Sub? ¿Ordenar(arr()?como?picFile)?
¿Oscuro? tmpArchivo? ¿Como? ¿Archivo de imagen?
¿Para qué? ¿I? =?LBound(arr())? ¿A dónde ir? ¿UBound(arr())?
¿Para qué? j? =?Yo? +?1?¿Adónde ir? ¿UBound(arr())?
¿Y si? Arr(j). ¿Fecha de creación? >? llegar(i). ¿Fecha de creación? ¿Entonces qué?
¿Archivotmp? =?arr(j)?
arr(j)? =?arr(yo)?
arr(i)? =?tmpFile?
¿Fin? ¿si?
¿Siguiente?
¿Siguiente?
¿Fin? Submarino