¿Cómo exportar una carpeta a html?

[emanmora]

Quiero que además de exportar los nombres de archivos también exporte las imágenes de los archivos en miniatura y que quede agrupado en una tabla para abrirlo con Dreamweaver. ¿Existe algún programa o forma de hacerlo? Gracias por sus respuestas.

[emprear]

@emanmora
Con el mayor de los respetos
NO ENTIENDO NADA DE TU POST

Aclarame un poco las cosas

[emanmora]

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

Iniciado por emprear

@emanmora
Con el mayor de los respetos
NO ENTIENDO NADA DE TU POST

Aclarame un poco las cosas

[memoadian]

creo que sería mejor que usaras un lenguaje de programación, para hacer esto, que leas los archivos de una carpeta x y el script genere una tabla dinamicamente.

[emprear]

no creo que este subforo sea el más apropiado, utilizá el icono
y pedí que tu tema sea movido a un subforo de programación

[Wakkos]

Si no quieres meterte con programación chunga y hacer ediciones en plan sencillo, Photoshop tiene un batch que te agarra todas las imágenes de una carpeta y te crea una galería con su nombre de archivo y todo eso.

[emanmora]

Hola!
Y eso como se hace?
Gracias!

Iniciado por Wakkos

Si no quieres meterte con programación chunga y hacer ediciones en plan sencillo, Photoshop tiene un batch que te agarra todas las imágenes de una carpeta y te crea una galería con su nombre de archivo y todo eso.

[memoadian]

¿programacion chunga?