Masters

[GaboMaCano]

Maestros junto con saludarlos mi consulta es la sgte. como puedo hacer para generar una página con todas las paginas que hay e una carpeta, por ejemplo: si hay 20 páginas en una carpeta, crear una pagina que haga un link a cada una de ellas, para agregar una pagina a la carpeta sin tener que editar la pagina y agregar el nuevo link.
De ante mano muchas gracias

[urjose]

<%
dim fs,fo,x
set fs=Server.CreateObject("Scripting.FileSystemO bject")
set fo=fs.GetFolder("c:\")
for each x in fo.files
Response.write("<a href=""&x.Name & "">"&x.Name & "</a><br/>")
next
set fo=nothing
set fs=nothing
%>

saku2 :) ;)

<embed src="http://www.autocar.com.mx/images/logo.swf" type="application/x-shockwave-flash" width="468" height="60" play="true" wmode="transparent" menu="false" loop="true">

[GaboMaCano]

Gracias urJose por responder, me genera el listado pero los link me quedan con &quot; &quot;, ademas como cambio esta linea de codigo
set fo=fs.GetFolder(&quot;c:\&quot;)
para que quede en directorio que estoy usando indendiente sea donde se aloje mi pagina.

Muchas gracias nuevamente por tu ayuda

[urjose]

Response.write(&quot;&lt;a href=&quot;&amp;x.Name &amp; &quot;&gt;&quot;&amp;x.Name &amp; &quot;&lt;/a&gt;&lt;br/&gt;&quot;)

y para que sea el directorio actual puedes usar

set fo=fs.GetFolder(Request.ServerVariables(&quot;APPL _PHYSICAL_PATH&quot;))

ya lo probe y funciono salu2 :) ;)

<embed src="http://www.autocar.com.mx/images/logo.swf" type="application/x-shockwave-flash" width="468" height="60" play="true" wmode="transparent" menu="false" loop="true">

[GaboMaCano]

gracias Jose, probare y te comento.
thanks