 |
|
|
|
|
|
Portada | Monotemáticos | Secciones | Desarrolladores | Comunidad | Servicios | Servicios profesionales | RSS | |
||
|
||||
|
|
|||
 |
|
 |
||
|
||||
Directorio
|
Manuales
|
Scripts
|
FAQs
|
Programas
|
Artículos Copyleft
|
Actualidad
|
La Cosecha
|
Colabora
Alojamiento
|
Dominios.es
|
Micropagos SMS
|
Buscadores
|
Patentes, marcas
|
Creación web
|
Multimedia
|
Videos
| ARTICULO: Listar los subdirectorios de un directorio |
Se muestra un comentario sin revisar
| Cristian | 30/3/07 |
| buscaba algo para listar los archivos y subdirectorios para crear un menu dinamico segun los contenidos de una carpeta acabe desarrollando esto: <% 'creo una matriz para almacenar nombres de carpetas para el javascript 'que oculta mis tablas al cargar la pagina dim tablas(), x 'inicializo el activex para archivos set fso = server.CreateObject("scripting.filesystemobject") 'tomo la carpeta en la que se aloja el script carpeta = server.MapPath(".") & "\" %> <html> <head> <title>Documento sin título</title> <script type="text/javascript"> function mostrar(idtab){ var fila;var x; fila=document.getElementById(idtab).getElementsByTagName('tr'); for(x=1;x<fila.length;x++){ if(fila[x].style.display=='none'){ fila[x].style.display=''; document.getElementById('ima'+idtab).src='../FlexlineWEB/carpeta1.gif'; }else{ fila[x].style.display='none'; document.getElementById('ima'+idtab).src='../FlexlineWEB/carpeta0.gif'; } } } </script> </head> <body onLoad="redmenu()"> <table id="Principal" width="171" cellpadding="0" cellspacing="0"> <tr> <td width="18" nowrap> <img id="imaPrincipal" src="../FlexlineWEB/carpeta0.gif" width="16" height="16" alt=""></td> <td width="151" nowrap onClick="mostrar('Principal')"> <b> <% response.write(carpeta & "<br>") %></b></td> </tr><% call subdir(carpeta) %> </table> <% ' creo un procedimiento para listar los directorios sub subdir(dir) set C = fso.getfolder(dir) if len(x)=0 then x=0 'recorro los subdirectorios for each carpeta in C.subfolders 'redimensiono mi matriz redim preserve tablas(x) tablas(x)=carpeta.name 'almaceno el nombre del directorio para la funcion javascript x = x + 1 %><tr> <td nowrap> </td> <td> <table id="<%= carpeta.name %>" cellspacing="0" cellpadding="0"> <tr><td><img id="ima<%= carpeta.name %>" src="../FlexlineWEB/carpeta0.gif" width="15" height="14" alt=""></td> <td width="151" nowrap onClick="mostrar('<%= carpeta.name %>')"> <b><%= carpeta.name %></b></td> </tr> <% 'almaceno array de ficheros para buscarlos set ficheros = carpeta.files call subdir(carpeta.path) 'aqui vuelvo a llamar al procedimiento para 'listar subdirectorios dentro del anterior call archivos(ficheros) 'llamo al procedimiento que indica los archivos 'dentro del directorio %> </table></td></tr> <% next end sub ' procedimiento que indica los archivos sub archivos(carpeta) for each A in carpeta set archivo = fso.getfile(A) %> <tr> <td> </td> <td nowrap><%= archivo.name %></td> </tr> <% next end sub %> </body> <script type="text/javascript"> function redmenu(){ var fila;var x; <% x=0 for x = lbound(tablas) to ubound(tablas) %> fila=document.getElementById('<%= tablas(x) %>').getElementsByTagName('tr'); for(x=1;x<fila.length;x++){ fila[x].style.display='none'; } fila='' <% next %> } </script> </html> a mas de alguien le puede servir |
|
 | Ver el articulo y todos sus comentarios |
 | Añadir un comentario del artículo |
Ir arriba
|
Comentarios no revisados de: |
