FSO

mikedeepak · August 4th, 2004, 01:01 AM

Hi
Using FSO how to serach the file and get display
<FORM METHOD=POST id=form1 action="searchresult.asp" name=form1 onsubmit="return Check();">
  Enter text to search for:
  <INPUT TYPE=TEXT NAME=TextToSearch>
  <P>
  <INPUT TYPE=SUBMIT VALUE="Begin Search!" id=SUBMIT1 name=SUBMIT1>
</FORM>
In the text box if enter 's' for example it should list all the files starting with the name 's' in the particular folder

shopgirl · August 4th, 2004, 04:33 AM

Try this:

Set Conn= Server.CreateObject ("ADODB.Connection")
Set rsData = Server.CreateObject ("ADODB.Recordset")
Database connection

strsql = Select Name of the field FROM name of your table Where name of the field LIKE '%S'

Do while Not rsData.EOF
<INPUT TYPE=TEXT NAME=TextToSearch Value="<%=rsData("name of your header in your table")%>">

<%
rsData.MoveNext
Loop
Set rsData=Nothing
%>

Hope it help

happygv · August 4th, 2004, 05:21 AM

Quote:

quote:Originally posted by shopgirl
Try this:

Set Conn= Server.CreateObject ("ADODB.Connection")
Set rsData = Server.CreateObject ("ADODB.Recordset")
Database connection

strsql = Select Name of the field FROM name of your table Where name of the field LIKE '%S'

Do while Not rsData.EOF
<INPUT TYPE=TEXT NAME=TextToSearch Value="<%=rsData("name of your header in your table")%>">

<%
rsData.MoveNext
Loop
Set rsData=Nothing
%>

Hope it help

Hi shopgirl,
It seems he is looking for help with FSO(FileSystemObject) not related to DB solution.

_________________________
- Vijay G
Strive for Perfection

mikedeepak · August 4th, 2004, 05:35 AM

hi shopgirl ,
I am not asking about the db search i am asking abt the filesystemobject
Set fso = Server.CreateObject("Scripting.FileSystemObject")

happygv · August 4th, 2004, 05:39 AM

Here you go...

This should be what you are looking for.

Use this code on the the file to which the form submits, in your case it is "searchresult.asp"

Code:

<%
    txtSearch = Request.Form("TextToSearch")
    Dim fs, f, f1, fc, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec) 'folderspec=Folder Path, where files reside.
    Set fc = f.Files
    For Each f1 in fc
        If InStr(1,f1.name,txtSearch) = 1 then
        Response.write f1.name & "<br>"
    Next
%>

InStr function returns the position of the txtSearch found in f1.Name(which is file name), as if that is found at 1(starting position of a filename), then you should display it. Check for documentation on InStr and InStrRev functions for more details.

Here is a link to that - The InStr Function

Also one thing to remember, don't post the same topic again and again in same thread or different thread, that would confuse the readers, without knowing which thread was closed or left unattended. Here is the link to the other thread you posted on same topic. FSO, I would suggest you better delete that thread mentioned in the link above.

Hope that helps.
Cheers!
_________________________
- Vijay G
Strive for Perfection

mikedeepak · August 4th, 2004, 05:55 AM

Vijay,
Thanx for ur info.