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
Usuarios: 
