|
<%
Dim StartTime
StartTime = Timer
%>
<% Dim objFolder
Dim strSearchText
Dim objSubFolder
Dim objFSO
If Request.Form("SearchText") <> "" Then
strSearchText = Request.Form("SearchText") '<-- The search string
Response.Write " La ricerca per " & strSearchText &" ha riportato i seguenti risultati:
"
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath(ImgDirectory))
Search objFolder
DidSearch = 1
End If
'recurse through folders
If Request.Form("SearchText") <> "" Then
Function Search(objFolder)
Set mainSubFolders = objFolder.Subfolders
For Each objSubFolder in mainSubFolders
If InStr(1, objSubFolder.Name, strSearchText, 1) Then
Folder = objFolder
TrimChr = (InStr(1, Folder, ImgDirectory, 1)) + (len(ImgDirectory))
'PartICareAbout = Right(Folder,(len(Folder)- trimChr))
PartICareAbout = (len(Folder)- trimChr)
DisplayName = replace(particareabout,"\","/")
Response.Write ""
End If
Search objSubFolder
Next
End Function
End If
%>
<% If DidSearch = 1 Then %>
|
