Tag alle mapper med i script.
X Jeg har bikset dette script sammen fra nogle artikler fra bla. exp.dk.Har selv bygget lidt på osv. Det søger i alle filer i en mappe. Men vil gerne have det til at tage filerne sub mapperne med.
En der kan hjælpe med det ?
------
<html>
<body>
<form action='search.asp' method='post'>
<input type=text name=ord>
<input type=submit value="Søg">
</form>
<%
sOrd = request("ord")
if sOrd = "" then
response.end
end if
dir = ".\"
x = Request.ServerVariables("PATH_INFO")
pos = InStrRev(x, "/")
stien = Left(x, pos)
afiler = "0"
Set FileSystem = CreateObject("Scripting.FileSystemObject")
Set MainFolder = FileSystem.Getfolder(Server.Mappath(dir))
Set Files = MainFolder.Files
Set Folders = MainFolder.subfolders
For Each File in Files
afiler = afiler + 1
next
reDim htmlfiler (afiler)
antal = "0"
Set FileSystem = CreateObject("Scripting.FileSystemObject")
Set MainFolder = FileSystem.Getfolder(Server.Mappath(dir))
Set Files = MainFolder.Files
Set Folders = MainFolder.subfolders
For Each File in Files
htmlfiler (antal) = ""&lcase(file.name)&""
antal = antal+1
next
ingenhitsoverhovedet=true
do while (i<uBound(htmlfiler))
sFile=""
Set objFS = CreateObject("Scripting.FileSystemObject")
strDir = Request.ServerVariables("SCRIPT_NAME")
sFile = Server.MapPath(Left(strDir, InStrRev(strDir,"/"))) & "/" & htmlfiler(i)
Set tekst = objFS.OpenTextFile(sFile, 1, False)
fundet = false
do while (NOT tekst.AtEndOfStream AND NOT fundet)
sTemp = tekst.ReadLine
if Instr(1, sTemp, sOrd, 1)>0 then
response.write("<a href='" & htmlfiler(i) &" '>" & htmlfiler(i) & "</a><br>")
ingenhitsoverhovedet=false
fundet=true
end if
loop
tekst.close
Set tekst = nothing
i=i+1
loop
Set objFS = Nothing
if ingenhitsoverhovedet then response.write("Desværre ingen af siderne indeholder '" & sOrd & "'")
%>
