script muestra directorios y archivos.

ggomez · #1 (**permalink**) 08/09/2004, 16:44

Hola a todos,

de pura casualidad alguien tienen un script en asp o html que muestre carpetas, subcarpetas y archivos
y que una vez que muestre los archivos pueda selecciona un archivo.html y lo habra. (ya que tengo mis procedimientos en html) o alguien tiene idea de como le puedo hacer.

Saludos.

tengo algunos scripts pero no se porque no funcionan unicamente me muestran las carpetas

De Antemano mil Gracias.

orharo2003 · #2 (**permalink**) 08/09/2004, 16:57

Este link te ayudará, calro siempre y cuando lo leas.

http://msdn.microsoft.com/library/de...jsFSOTutor.asp

deccweb · #3 (**permalink**) 09/09/2004, 02:24

mira yo me cree este de aqui http://www.calle17.com/public/hiphop/explorador.asp si te ineteresa pidemelo.

Me faltan hacer más iconos, pero de momento estan los principales.

un saludo

ggomez · #4 (**permalink**) 09/09/2004, 15:45

Pues te lo agradeceria muchisimo
consegui este ejemplo el detalle que para cada pagina tienes que agregarla en un archivo tecto que es donde lo va a leer y tiene un detalle que solo acepta paginas creadas en asp y to quiero mostrar archivos creados en html, pdf, word, asp, que son ejecutables.

mi cuenta de correo es [email protected]
de antemano mil gracias.
Saludos.

ejemplo del codigo que tengo:

<html>
<head>
<meta http-equiv="Content-Language" content="es">

<title>egagent pc </title>
<meta name="Microsoft Theme" content="travel 011">
</head>
<body lang=ES-MX



<img width=164 height=35 id="_x0000_i1025"
src="gif_files/banner%20telmex.gif" border=0 align="right">


PROCEDIMIENTOS
RANT/SUCOR 
 

<%
dim c
dim i
set nl=server.createobject("MSWC.Nextlink")
c = nl.GetListCount("text\links.txt")
i = 1
%> <table border="0" cellpadding="0" cellspacing="0" width="100%">
<%do while (i <= c) %>
<tr><td valign="baseline" width="42"><img src="_themes/travel/trabul1a.gif" width="15" height="15" hspace="13" alt="bullet"></td><td valign="top" width="100%"><a href="<%=nl.GetNthURL("text\links.txt", i)%>">
<%=nl.GetNthDescription("text\links.txt", i)%></a>
<%
i = (i + 1)
loop
%>

ggomez · #5 (**permalink**) 09/09/2004, 15:47

FE: consegui este ejemplo el detalle que para cada pagina tienes que agregarla en un archivo tecto --> texto

deccweb · #6 (**permalink**) 10/09/2004, 04:33

He hecho un zip y aqui te pongo la dirección del zip.

www.calle17.com/public/explorador/explorador.zip

ggomez · #7 (**permalink**) 10/09/2004, 11:29

Muchisimas gracias
Es exactamente lo que necesito para acceder a cada una de mi carpeta de procedimientos.

Ya probe el script y funciona perfectamente.
Gracias.
Saludos