January 22nd, 2003, 02:24 PM
Join Date: Aug 2002
Time spent in forums: 1 Day 18 h 49 m 56 sec
Reputation Power: 11
Problem getting .pdf Titles with CreateRecordSet()
This is what I have:
set Q = Server.CreateObject("MSSearch.Query")
set util = Server.CreateObject("MSSearch.Util")
Q.Catalog = "Something"
Q.AllowEnumeration = TRUE
Q.Query = CompSearch
Q.SortBy = "filename[a]"
Q.Columns = "DocTitle, URL, filename, size"
Q.MaxRecords = 1000
wScopeQuery = "file:" & ActualRoot2 & VirtPath
util.AddScopeToQuery Q, wScopeQuery, "deep"
set RS = Q.CreateRecordSet("sequential")
if Not RS.EOF and Not RS.BOF then
wFilenmtmp = LCase(RS("filename"))
StrLen = Len(wFilenmtmp)
CharsLeft = StrLen - 4
wFilenm = Left(wFilenmtmp, CharsLeft)
wExt = Right(wFilenmtmp, 3)
if wExt = "doc" or wExt = "pdf" then
wVpathDoc = Mid(RS("URL"), Len(ActualRoot) + 5)
wDoctitle = RS("DocTitle")
wSizeDoc = FormatNumber(RS("size"), 0)
if wExt = "zip" then
wVpathZip = Mid(RS("URL"), Len(ActualRoot) + 5)
wSizeZip = FormatNumber(RS("size"), 0)
This works great if the files are either of .doc or .zip type. But fails to get the title
of a .pdf type. The filename, url and size are ok...but the Title is missing when a .pdf
file is found.
I have verified many time that the .pdf file do have a title on them, both by checking their properties
and by mouseover, shows type, title and size.
The files are managed by VSS.
Any ideas why the .pdf Titles are not being grabbed?