[1] make a catalog specific to the folder you want to search for and make the search scope as "/".

set Q = Server.CreateObject("ixsso.Query")
set Util = Server.CreateObject("ixsso.Util")

Q.Catalog = "myfolder"
Q.Query = CompSearch
Q.SortBy = "rank[d]"
Q.Columns = "DocTitle, vpath, filename, size, write, characterization, rank"

if MaxResults <> -1 then
Q.MaxRecords = MaxResults
end if

Dim FormScope;
FormScope = "/"

if FormScope <> "\" then
Util.AddScopeToQuery Q, FormScope, "deep"
end if

.....

[2] change your scope to "/foldername/"

[3] to get vpath and characterization

set RS = Q.CreateRecordSet("nonsequential")

myVpath = RS("vpath")

myCharaterization = RS("characterization") or Server.HTMLEncode(RS("characterization"))

Hope that helps.