Ok. Voy a tratar de mostrarlo más a detalle:
Esta es una carpeta que contiene archivos de imágen:
Y necesito que tanto las imagenes como el texto (nombre del archivo) aparezcan en una tabla html para cargarla con el editor Dreamweaver para poder cambiar las imagenes según lo necesite y luego cuando publique el código html en alguna página aparezca la tabla con las imagenes y el texto. (Las imagenes serán nuevas tomadas de Internet)
He encontrado programas que te generan una lista de texto con el nombre de los archivos pero lo que necesito es que también tome las imagenes de la carpeta.
Utilicé ese código para una macro de Excel, pero nadamas toma el texto:
Código:
Sub ListarArchivosCarpeta()
Dim strArchivos As String
Dim strNombreCarpeta As String
'carpeta donde se hará la búsqueda
strNombreCarpeta = "C:\Documents and Settings\All Users\Documentos\"
'o también se puede hacer la búsqueda en la carpeta donde se encuentra este libro
'strNombreCarpeta = ThisWorkbook.Path
'pasamos al directorio elegido, indicando como tipo de archivo Excel
ChDir strNombreCarpeta
strArchivos = Dir("*.xls")
'podemos buscar otro tipo de archivos, por ejemplo .doc, esta es la parte donde tenemos 'que poner la extensión de archivo a buscar o archivos, para mostrar todos los archivos hay 'que poner *.* , excel *.xls, fotos *.jpg - *.gif , etc
strArchivos = Dir("*.doc")
'recorremos los archivos de la carpeta
Do While strArchivos <> ""
'podemos mostar el nombre de cada archivo encontrado
'MsgBox strArchivos
'o podemos armar una lista en la hoja Excel
'en este ejemplo comenzará a partir de la celda activa
ActiveCell.Value = strArchivos
ActiveCell.Offset(1, 0).Select
'obtiene la siguiente entrada
strArchivos = Dir
Loop
End Sub
Espero que haya quedado más claro.
Te agradezco tu tiempo.
Saludos
Cita:
Iniciado por emprear 
@emanmora
Con el mayor de los respetos
NO ENTIENDO NADA DE TU POST
Aclarame un poco las cosas
