Searching Word docs for strings

[Les Juby]

Can anyone please help with some VBScripting that would enable me to
search thru Word documents (Word 2000 format) and return the filenames
to use in a archive search on a legal website.?

TIA

.les.

o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o
Les Juby le*****@anti-spam.iafrica.com
Webpro Internet - - - Prosoft Microsystems
Durban, KwaZulu-Natal, South Africa
P.O.Box 35243, Northway 4065, South Africa
Tel: [phone] Fax: [phone]
o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o
(you *do* know to take "anti-spam" out the address....?

[Aaron Bertrand - MVP]

Use Index Server.

--
Aaron Bertrand
SQL Server MVP
http://www.aspfaq.com/


"Les Juby" <we****@webpro.co.za> wrote in message
news:40***************@news.uunet.co.za...

Can anyone please help with some VBScripting that would enable me to
search thru Word documents (Word 2000 format) and return the filenames
to use in a archive search on a legal website.?

TIA

.les.

o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o
Les Juby le*****@anti-spam.iafrica.com
Webpro Internet - - - Prosoft Microsystems
Durban, KwaZulu-Natal, South Africa
P.O.Box 35243, Northway 4065, South Africa
Tel: [phone] Fax: [phone]
o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o
(you *do* know to take "anti-spam" out the address....?

[Steven Burn]

<%
iCount = 0

Dim FSO, Fldr, Fl
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Fldr = FSO.GetFolder(Server.MapPath("./")) '// Current folder
For Each Fl In Fldr.Files
Response.Write Fl & "<br />"
iCount = iCount + 1
Next
Response.Write "<br /><b>There were " & iCount & " files found</b>"

Set FSO = Nothing
Set Fldr = Nothing
Set Fl = Nothing
%>

--

Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!
"Les Juby" <we****@webpro.co.za> wrote in message
news:40***************@news.uunet.co.za...

Can anyone please help with some VBScripting that would enable me to
search thru Word documents (Word 2000 format) and return the filenames
to use in a archive search on a legal website.?

TIA

.les.

o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o
Les Juby le*****@anti-spam.iafrica.com
Webpro Internet - - - Prosoft Microsystems
Durban, KwaZulu-Natal, South Africa
P.O.Box 35243, Northway 4065, South Africa
Tel: [phone] Fax: [phone]
o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o
(you *do* know to take "anti-spam" out the address....?

[Steven Burn]

Forgot to mention. To filter it for certain file type's, you could just
change;

For Each Fl In Fldr.Files
Response.Write Fl & "<br />"
iCount = iCount + 1
Next

to

For Each Fl In Fldr.Files
If right(fl.name, 3) = "doc" Then
Response.Write Fl & "<br />"
iCount = iCount + 1
End If
Next

--

Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!
"Steven Burn" <pv*@noyb.com> wrote in message
news:Oh**************@tk2msftngp13.phx.gbl...

<%
iCount = 0

Dim FSO, Fldr, Fl
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Fldr = FSO.GetFolder(Server.MapPath("./")) '// Current folder
For Each Fl In Fldr.Files
Response.Write Fl & "<br />"
iCount = iCount + 1
Next
Response.Write "<br /><b>There were " & iCount & " files found</b>"

Set FSO = Nothing
Set Fldr = Nothing
Set Fl = Nothing
%>

--

Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!
"Les Juby" <we****@webpro.co.za> wrote in message
news:40***************@news.uunet.co.za...

Can anyone please help with some VBScripting that would enable me to
search thru Word documents (Word 2000 format) and return the filenames
to use in a archive search on a legal website.?

TIA

.les.

o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o
Les Juby le*****@anti-spam.iafrica.com
Webpro Internet - - - Prosoft Microsystems
Durban, KwaZulu-Natal, South Africa
P.O.Box 35243, Northway 4065, South Africa
Tel: [phone] Fax: [phone]
o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o
(you *do* know to take "anti-spam" out the address....?

[Alan Howard]

Les,

If you're searching content *in* the documents then you want to use Indexing
Service. This involves setting up a catalog which you can then link to from
SQL Server. The content of the catalog can then be queried using SELECT *
FROM (OPENQUERY (...)) syntax. There is some good information in BOL about
this.

Alan

"Les Juby" <we****@webpro.co.za> wrote in message
news:40***************@news.uunet.co.za...

Can anyone please help with some VBScripting that would enable me to
search thru Word documents (Word 2000 format) and return the filenames
to use in a archive search on a legal website.?

TIA

.les.

o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o
Les Juby le*****@anti-spam.iafrica.com
Webpro Internet - - - Prosoft Microsystems
Durban, KwaZulu-Natal, South Africa
P.O.Box 35243, Northway 4065, South Africa
Tel: [phone] Fax: [phone]
o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o
(you *do* know to take "anti-spam" out the address....?