在W2K下，如何实现类似windows搜索文件的功能，主要是针对文件中包含的文字进行搜索。

Question

快速调用“查找文件对话框” 
    在Windows环境中，如果要查找一个文件，通常情况下采取的步骤是：     1、确定查找文件所在的文件夹范围     2、按热键F3     3、在出现的“查找：所有文件”窗口中，输入各个项目。  
    是不是有点复杂。在VB程序中，能否通过点击一个按钮，就出现第3步的“查找：所有文件”？答案是肯定的！代码如下：     '声明API函数     Declare Function ShellExecute Lib "shell32.dll" Alias _         "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation _         As String, ByVal lpFile As String, ByVal lpParameters _         As String, ByVal lpDirectory As String, ByVal nShowCmd _         As Long) As Long     '定义常量参数     Const SW_SHOW = 5     '通用调用查找对话框函数     Public Sub ShowFindDialog(Optional InitialDirectory As String)     ShellExecute 0, "find", _      IIf(InitialDirectory = "", "", InitialDirectory), _      vbNullString, vbNullString, SW_SHOW     End Sub     '调用查找对话框例程     Call ShowFindDialog("C:\Program Files")     调用的代码ShowFindDialog("C:\Program Files")，非常简练。注意：如果括号中的参数不是一个合法的目录名，这一行调用命令将不会产生任何结果。如果参数为空，就等于选择了当前目录。 

Answer 1

我要直接得到文件的路径和文件名，然后用ASP实现文件下载功能，得到的文件的路径和文件名将用于提供联接，能实现吗？？？谢谢了！！！

Answer 2

我也很想搞清楚WINDOWS是怎么搜索文件里的字符串的。

Answer 3

Indexing Service
是什么，能解释的详细点吗？？？

Answer 4

全文检索服务具体你可以找找MSDN的例子

Answer 5

Platform SDK里面有例子
mssdk\samples\winbase\indexing我个人认为这个东西有时候挺烦的
她要在你空闲的时候搜索硬盘，占用了比较多的资源
所以我感觉有些不友好
而且生成的一些相关文件占用了比较大的硬盘空间

Answer 6

看看Index service的例子把
if SearchString <> "" then
  if NewQuery then
    set Session("Query") = nothing
    set Session("Recordset") = nothing
    NextRecordNumber = 1
 
    set Q = Server.CreateObject("ixsso.Query")
    set util = Server.CreateObject("ixsso.util")
    Q.Query = SearchString
    Q.SortBy = "rank[d]"
    Q.Columns = "DocTitle, vpath, path, filename, size, write, characterization"
    util.AddScopeToQuery Q, "/Myfiles", "deep"
 
    set RS = Q.CreateRecordSet("nonsequential")
 
    RS.PageSize = 10
    ActiveQuery = TRUE
 
  elseif UseSavedQuery then
    if IsObject( Session("Query") ) And IsObject( Session("RecordSet") ) then
      set Q = Session("Query")
      set RS = Session("RecordSet")
 
      if RS.RecordCount <> -1 and NextPageNumber <> -1 then
        RS.AbsolutePage = NextPageNumber
        NextRecordNumber = RS.AbsolutePosition
      end if
 
      ActiveQuery = TRUE
    else
      Response.Write "ERROR - No saved query"
    end if
  end if

Answer 7

TO nik_Amis(Azrael)
我正在消化吸收，不过MSDN上都是E文，比较难啃，过两天就结帖，400分可以吗？如果有中文资料，能MAIL一份么？[email protected]

Answer 8

我以前做过Indexin' Service的程序
不直到能不能找得到了，我回去找找看

Answer 9

TO nik_Amis(Azrael)
太感谢了，真想再加点分，可惜我只有这么多了！！！

Answer 10

I sent you mail,check it