如何使用FSO搜索硬盘文件

<％@LANGUAGE="VBSCRIPT" CODEPAGE="936"％>
  <％
  dim st
  st=timer()
  '*************************************************************
  '*************搜索硬盘文件的类SearchFile *************
  '*************调用方法: *************
  '*************Set newsearch=new SearchFile '声明 *************
  '*************newsearch.Folder="F:+E:"'传入搜索源*************
  '*************newsearch.keyword="汇编" '关键词*************
  '*************newsearch.Search '开始搜索*************
  '*************Set newsearch=Nothing '结束*************
  '*************************************************************
  Class SearchFile
   dim Folders '传入绝对路径,多路径使用+号连接,不能有空格
   dim keyword '传入关键词
   dim objFso '定义全局变量
   dim Counter '定义全局变量，搜索结果的数目
  '*****************初始化**************************************
   Private Sub Class_Initialize
   Set objFso=Server.CreateObject("Scripting.FileSystemObject")
   Counter=0 '初始化计数器
   End Sub
  '************************************************************
   Private Sub Class_Terminate
   Set objFso=Nothing
   End Sub
  '**************公有成员,调用的方法***************************
   Function Search
   Folders=split(Folders,"+") '转化为数组
   keyword=trim(keyword) '去掉前后空格
   if keyword="" then
   Response.Write("<font color='red'>关键字不能为空</font><br/>")
   exit Function
   end if
   '判断是否包含非法字符
   flag=instr(keyword,"\") or instr(keyword,"/")
   flag=flag or instr(keyword,":")
   flag=flag or instr(keyword,"|")
   flag=flag or instr(keyword,"&")
  
   if flag then '关键字中不能包含\/:|&
   Response.Write("<font color='red'>关键字不能包含/\:|&</font><br/>")
   Exit Function '如果包含有这个则退出
   end if
   '多路径搜索
   dim i
   for i=0 to ubound(Folders)
   Call GetAllFile(Folders(i)) '调用循环递归函数
   next
   Response.Write("共搜索到<font color='red'>"&Counter&"</font>个结果")
   End Function
  '***************历遍文件和文件夹******************************
   Private Function GetAllFile(Folder)
   dim objFd,objFs,objFf
   Set objFd=objFso.GetFolder(Folder)
   Set objFs=objFd.SubFolders
   Set objFf=objFd.Files
   '历遍子文件夹
   dim strFdName '声明子文件夹名
   '*********历遍子文件夹******
   on error resume next
   For Each OneDir In objFs
   strFdName=OneDir.Name
   '系统文件夹不在历遍之列
   If strFdName<>"Config.Msi" EQV strFdName<>"RECYCLED" EQV strFdName<>"RECYCLER" EQV strFdName<>"System Volume Information" Then
   SFN=Folder&"\"&strFdName '绝对路径
   Call GetAllFile(SFN) '调用递归
   End If
   Next
   dim strFlName
   '**********历遍文件********
   For Each OneFile In objFf
   strFlName=OneFile.Name
   'desktop.ini和folder.htt不在列取范围
   If strFlName<>"desktop.ini" EQV strFlName<>"folder.htt" Then
   FN=Folder&"\"&strFlName
   Counter=Counter+ColorOn(FN)
   End If
   Next
   '***************************
   '关闭各对象实例
   Set objFd=Nothing
   Set objFs=Nothing
   Set objFf=Nothing
   End Function
  '*********************生成匹配模式***********************************
   Private Function CreatePattern(keyword)
   CreatePattern=keyword
   CreatePattern=Replace(CreatePattern,".","\.")
   CreatePattern=Replace(CreatePattern,"+","\+")
   CreatePattern=Replace(CreatePattern,"(","\(")
   CreatePattern=Replace(CreatePattern,")","\)")
   CreatePattern=Replace(CreatePattern,"[","\[")
   CreatePattern=Replace(CreatePattern,"]","\]")
   CreatePattern=Replace(CreatePattern,"{","\{")
   CreatePattern=Replace(CreatePattern,"}","\}")
   CreatePattern=Replace(CreatePattern,"*","[^\\\/]*") '*号匹配
   CreatePattern=Replace(CreatePattern,"?","[^\\\/]{1}") '?号匹配
   CreatePattern="("&CreatePattern&")+" '整体匹配
   End Function
  '**************************搜索并使关键字上色*************************
   Private Function ColorOn(FileName)
   dim objReg
   Set objReg=new RegExp
   objReg.Pattern=CreatePattern(keyword)
   objReg.IgnoreCase=True
   objReg.Global=True
   retVal=objReg.Test(FileName) '进行搜索测试,如果通过则上色并输出
   if retVal then
   OutPut=objReg.Replace(FileName,"<font color='#FF0000'>$1</font>") '设置关键字的显示颜色
  '***************************该部分可以根据需要修改输出************************************
   OutPut="<a href='#'>"&OutPut&"</a><br/>"
   Response.Write(OutPut) '输出匹配的结果
  '*************************************可修改部分结束**************************************
   ColorOn=1 '加入计数器的数目
   else
   ColorOn=0
   end if
   Set objReg=Nothing
   End Function
  End Class
  '************************结束类SearchFile**********************
  ％>
  <html>
  <head>
  <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  <title>www.knowsky.com</title>
  </head>
  
  <body>
  <form name="form1" method="post" action="<％ =Request.ServerVariables("PATH_INFO")％>">
   关键词:
   <input name="keyword" type="text" id="keyword">
   <input type="submit" name="Submit" value="搜索">
   <a href="help.htm" target="_blank">高级搜索帮助</a>
  </form>
  <％
  dim keyword
  keyword=Request.Form("keyword")
  if keyword<>"" then
   Set newsearch=new SearchFile
   newsearch.Folders="E:\Media+F:"
   newsearch.keyword=keyword
   newsearch.Search
   Set newsearch=Nothing
   response.Write("<br/>费时："&(timer()-st)*1000&"毫秒")
  end if
  
  ％>
  </body>
  </html>