alguien se atreve con esto?

Hola .... otra vez por aquí.,
tengo el siguiente codigo que me funciona perfectamente en una base de datos.
Pero yo quisiera que buscara en directorios y subdirectorios: me pueden echar una mano y decirme que debo modificar ??? o si hay algun post que haga referencia a este tema ???

<TABLE WIDTH="98%"><TR><TD>
<form method="Post" action="buscaraudio.asp">
<p align="center"><font size="1"><input type="text" name="palabra" size="20">
<input type="submit" value="Buscar" name="boton1">
<input type="reset" value="Restablecer" name="boton"> <b>Audio</font></b></p></form>

<p><font face="Tahoma" size="2">Resultados obtenidos con <strong><%=Request("Palabra") %></strong></font></p>

<%

Dim Conexion,Tabla
Set Conexion=Server.CreateObject("adodb.connection")
Set Tabla=Server.CreateObject("adodb.recordset")
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("/mdb-database/audio.mdb")

Dim Temp

Temp="Select * From Tabla1 Where UCase(pal) like '%" & UCase(Request("palabra")) & "%'"

Tabla.Open Temp, Conexion
If Tabla.BOF And Tabla.EOF Then
%>

<p><font face="Tahoma" size="2">No se ha encontrado nada con <strong><%=Request("palabra")%></strong> en la Base de Datos</font></p>
</table>

<%
Else
%>
<div align="left">
<table border="0" cellspacing="0" width="70%">
<tr>
<td width="65%" height="10">
<p align="center"><strong><font face="Tahoma" size="2">Portadas</font></strong></p>
</td>
</tr>
<% While Not Tabla.EOF%>
<tr>
<td width="35%" height="10">
<p align="left"><a href="<%=Tabla.Fields("url")%>"><%=Tabla.Fields("p al")%></font></td>
</tr>

<%
Tabla.MoveNext
Wend
Tabla.Close
Conexion.Close
End If
%>
</table>
</div>
<p align="center"><font face="Tahoma" size="2">Busquedas 2004</font></p>
</TD></TR></TABLE>

gracias

nadie es capaz de echarme una mano?