Sistema de Archivos

[monkyta]

Trabajo con muchas variables y funciones por lo que te paso solo la parte mas importante

dim i,categ,chkk,cope,j
set conn = Server.CreateObject("ADODB.Connection")
conn.ConnectionString = "provider=msidxs;"
conn.Open
SQL = "SELECT filename from tucatalogovaaca..SCOPE(' SHALLOW TRAVERSAL OF ""/" & """') where size=0 "
set RS = conn.execute(SQL)
categoria=""
do while Not RS.EOF
proy = rs("filename")
if proy = "img" or proy = "home" or proy = "admin" or proy = "css" then
rs.movenext
else
categoria= categoria & proy
rs.movenext
if not rs.eof then
categoria= categoria & ","
end if
end if
loop

categorias=split(categoria,",")
ncategorias=Ubound(categorias)

Esta linea if proy = "img" or proy = "home" or proy = "admin" or proy = "css" then

es para que no me busque en directorios que no deseo ..... la busqueda SHALLOW TRAVERSAL atraviesa todos los directorios; no importando que no esten marcados en el Sitio.... es otra de mis "pillerias"

Bueno, espero que puedas programarlo.... suerte