Aupa maestros!!
Tengo una página que mediante el objeto FSO lista los archivos que hay en una determinada carpeta del servidor y crea vínculos a estos (esos documentos son pdfs), de tal manera que si añades un nuevo pdf a la carpeta cuando la página se refresca aparece el link a este nuevo pdf. El caso es que como la lista que se muestra se hace larguiiiiisima no sé cómo hacer para implementar un minibuscador (un simple textbox) que funcione dejando meter parte del nombre de archivo... es decir, que si pones para buscar "85" te salgan todos los archivos que empiecen por 85 y eso...
Este es mi código:
Código:
mypath = "Documents/"
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder("C:\Inetpub\wwwroot\Intranet\Documents")
Set filez = folder.Files
FileCount = folder.Files.Count
response.write "<center><font size=1>Actualmente hay "
response.write "<b><font size=2>"
response.write FileCount & "</b></font>"
response.write " Archivos.</font></center><p>"
For Each listing in filez
TotalChars = len(listing.name)
Title = left(listing.name,TotalChars - 4)
Title = replace(Title,"_"," ")
response.write "<A HREF='" & mypath
response.write listing.name
response.write "' class=""menu"" target=""_new"">"
response.write Title
response.write "</A><br>"
Next
MUCHAS GRACIAS!!
