File search control for web page

Question

Hi,
I'm new to dreamweaver and to developing. I have created a
web site on my MS 2003 IIS server for a client and all is well. I
was asked to add some pages that would allow a user to search a
shared file foder and subfolder directory that I created and sem to
have hit a wall. What I would think an easy task I guess seems not
to be. What I would like to be able to add is a simple search form,
drop down or calendar control that would let the user selct the
specific folder where their files would be and the without
searching through hundres of like-named files, search either by
date or have a similar control.
I have been told that using an indexing service would be best
and then also told that it would be over kill for this. Any help
would be greatly appreciated.

MikeL7 · Answer

If you are using ASP then this script will display all thefiles in the folder you put it in. If you us a form and substitutea file name for the proper variable it will display a file, it alsoshows the date last modified, you might be able to modify it to doexactly what you want. notice this line <%=objFileItem.DateLastModified %> it gives the date last modified,you could use this also check into the FileSystemObject'CODE:<% Dim strPathInfo, strPhysicalPath strPathInfo = Request.ServerVariables("PATH_INFO") 'getvirtual path of file strPhysicalPath = Server.MapPath(strPathInfo) 'get physicalpath of file Dim objFSO, objFile, objFileItem, objFolder,objFolderContents Set objFSO = CreateObject("Scripting.FileSystemObject") set objFile = objFSO.GetFile(strPhysicalPath) Set objFolder = objFile.ParentFolder Set objFolderContents = objFolder.Files%><%For Each objFileItem In objFolderContents%> <%Next%>

File Name	File Type	File Size	Last Modified	View Source
<%= objFileItem.Name %>	<%= objFileItem.type %>	<%= objFileItem.size %>	<%= objFileItem.DateLastModified %>	View Source

' Here is the code for the "DisplaySourceINTDIR.asp" pagethat displays the source you can delete the link if you want<%Const ForReading = 1, ForWriting = 2, ForAppending = 8Const TristateUseDefault = -2, TristateTrue = -1,TristateFalse = 0Dim strPathInfo, strPhysicalPathstrPathInfo = Request.QueryString("FileName")strPhysicalPath = Server.MapPath(strPathInfo)Dim objFSO, objFileset objFSO = CreateObject("Scripting.FileSystemObject")set objFile = objFSO.GetFile(strPhysicalPath)%><%= objFile.Name %> SourceCodeSource Code For: <%= objFile.Name %>

<%Dim objFileTextStreamSet objFileTextStream = objFile.OpenAsTextStream(ForReading,TristateUseDefault)Dim strLineDo While objFileTextStream.AtEndOfStream <> True strLine = Server.HTMLEncode(objFileTextStream.ReadLine) strLine = Replace (strLine, Chr(9)," ") Response.Write strLine Response.Write "
" + vbCrLf Loop objFileTextStream.Close%>

">Return to Directory

Sign up

To post, reply, or follow discussions, please sign in with your Adobe ID.

Sign in to Adobe Community

To post, reply, or follow discussions, please sign in with your Adobe ID.

Scanning file for viruses.

This file cannot be downloaded