Buenas te paso un par de datos...
primero vas a ver que carpetas tienes dentro de una direccion de terminada, por ejemplo las que yo puse es dentro de la carpeta galeria y dentro de esta la carpeta imagenes, me tiene que listar todas las subcarpetas que tiene la carpeta imagenes. y le coloca un link para cuando la selecciono me lleve directamente a la carpeta elegida, a traves de la pagina que la llamo listado.asp, donde me va a mostrar todos los archivos que alli existan, cuando este dentro de la pagina listado.asp, que te detallaré mas abajo, podras de igual forma seleccionarlas para ver el archivo, en este caso se trata de imagenes, o seleccionarlo para ser borrado.
con esto lo ves :
<%
Dim objFSO,objFile,objFolder,objSubFolder
Set objFSO = server.CreateObject ("Scripting.FileSystemObject")
'set objFolder=objFSO.GetFolder(server.MapPath ("\galeria/imagenes/") )
%>
<p align="center"> </p>
<p align="center"><b><font face="Arial" color="#000000" size="4">Listado de Carpetas en :</font></b></p>
<%
' lista las carpetas que existen
for each objSubFolder in objFolder.SubFolders
if objSubFolder="_vti_cnf" then%>
<p align="center">
<%Else%>
<p align="center"><font face="Arial Narrow"><b><a href="listado.asp?order=<%=objSubFolder.Name%>"><f ont face="Arial" size="2"><%=UCASE(objSubFolder.Name)%></font></a></b>
<%end if%>
<%
Next
%>
----- Listado.asp -------
<%
dim folder
folder=Request("order")
Dim objFSO,objFile,objFolder,objSubFolder
Set objFSO = server.CreateObject ("Scripting.FileSystemObject")
set objFolder=objFSO.GetFolder(server.MapPath ("\galeria/imagenes/"& folder &" "))
'lee cada archivo dentro de la carpeta seleccionada
%>
<p align="center"> </p>
<p align="center"><b><font face="Arial" color="#000000">Listado de Imágenes
contenidas en Carpeta : <font face="Arial"><%=objFolder.Name%></font> </font></b>
<p align="center">
<div align="center">
<center>
<table border="1" width="450" bordercolor="#808080" cellspacing="0" cellpadding="0" bgcolor="#C0C0C0">
<tr>
<td width="33%" align="center" height="25" bgcolor="#9900CC"><font face="Arial" color="#FFFFFF" size="2">Nombre
Imagen</font></td>
<td width="33%" align="center" height="25" bgcolor="#9900CC"><font face="Arial" color="#FFFFFF" size="2">Visualizar</font></td>
<td width="34%" align="center" height="25" bgcolor="#9900CC"><font face="Arial" color="#FFFFFF" size="2">Eliminar</font></td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="1" width="450" cellspacing="0" cellpadding="0" bordercolor="#9900CC">
<%for each objFile in objFolder.files %>
<tr>
<td width="33%" align="center" style="border: 1 solid #EAEAEA"><font face="Arial" size="2" color="#666666"><%=objFile.Name%></font></td>
<td width="33%" align="center" style="border-top: 1 solid #EAEAEA; border-bottom: 1 solid #EAEAEA"><a href="ver_img.asp?id=<%=objFile.Name%>" target="principal"><font face="Arial" size="2" color="#000080">Visualizar</font></a></td>
<td width="34%" align="center" style="border: 1 solid #EAEAEA"><a href="delet.asp?id=<%=objFile.Name%>" target="_top"><font face="Arial" size="2" color="#800000">Eliminar</font></a></td>
<% next %>
</tr>
</table>
</center>
</div>
</BODY>
</HTML>
------- en ell caso que elijas borrar el archivo se procede asi, que le llamo a la pagina delet.asp
<%dim file
file=Request.QueryString ("id")
dim folder
folder=Request("order")
Dim objFSO,objFile,objFolder,objSubFolder
Set objFSO = server.CreateObject ("Scripting.FileSystemObject")
set objFolder=objFSO.GetFolder(server.MapPath ("\galeria/imagenes/"& folder &" "))
%>
<P> </P>
<%for each objFile in objFolder.files
if objFile.Name = file then
objFile.Delete%>
<%end if
next %>
<p align="center"><b>La Imagen
<%=file%> fué eliminada de la Carpeta
<%=folder%>
<font face="Arial" color="#FFFFFF" size="3">
<a href="listado.asp?order=<%=folder%>" target="_top"><b>Presione aquí
para retornar</a>
Espero te sirva
Saludos
Mario