主頁(yè) > 知識(shí)庫(kù) > 如何使用FSO搜索硬盤文件

如何使用FSO搜索硬盤文件

熱門標(biāo)簽:怎么在地圖標(biāo)注自己 外呼系統(tǒng)API接口 萊西電子地圖標(biāo)注 修改地圖標(biāo)注 武夷山旅游地圖標(biāo)注 金昌電話機(jī)器人價(jià)格 個(gè)人可以辦理400電話么 鳳臺(tái)百度地圖標(biāo)注店 縣域地圖標(biāo)注打印店


%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
%
dim st
st=timer()
'*************************************************************
'*************搜索硬盤文件的類SearchFile *************
'*************調(diào)用方法: *************
'*************Set newsearch=new SearchFile '聲明 *************
'*************newsearch.Folder="F:+E:"'傳入搜索源*************
'*************newsearch.keyword="匯編" '關(guān)鍵詞*************
'*************newsearch.Search '開(kāi)始搜索*************
'*************Set newsearch=Nothing '結(jié)束*************
'*************************************************************
Class SearchFile
dim Folders '傳入絕對(duì)路徑,多路徑使用+號(hào)連接,不能有空格
dim keyword '傳入關(guān)鍵詞
dim objFso '定義全局變量
dim Counter '定義全局變量,搜索結(jié)果的數(shù)目
'*****************初始化**************************************
Private Sub Class_Initialize
Set objFso=Server.CreateObject("Scripting.FileSystemObject")
Counter=0 '初始化計(jì)數(shù)器
End Sub
'************************************************************
Private Sub Class_Terminate
Set objFso=Nothing
End Sub
'**************公有成員,調(diào)用的方法***************************
Function Search
Folders=split(Folders,"+") '轉(zhuǎn)化為數(shù)組
keyword=trim(keyword) '去掉前后空格
if keyword="" then
Response.Write("font color='red'>關(guān)鍵字不能為空/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 '關(guān)鍵字中不能包含/:|
Response.Write("font color='red'>關(guān)鍵字不能包含/:|/font>br/>")
Exit Function '如果包含有這個(gè)則退出
end if
'多路徑搜索
dim i
for i=0 to ubound(Folders)
Call GetAllFile(Folders(i)) '調(diào)用循環(huán)遞歸函數(shù)
next
Response.Write("共搜索到font color='red'>"Counter"/font>個(gè)結(jié)果")
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
'系統(tǒng)文件夾不在歷遍之列
If strFdName>"Config.Msi" EQV strFdName>"RECYCLED" EQV strFdName>"RECYCLER" EQV strFdName>"System Volume Information" Then
SFN=Folder""strFdName '絕對(duì)路徑
Call GetAllFile(SFN) '調(diào)用遞歸
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
'***************************
'關(guān)閉各對(duì)象實(shí)例
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,"*","[^\/]*") '*號(hào)匹配
CreatePattern=Replace(CreatePattern,"?","[^\/]{1}") '?號(hào)匹配
CreatePattern="("CreatePattern")+" '整體匹配
End Function
'**************************搜索并使關(guān)鍵字上色*************************
Private Function ColorOn(FileName)
dim objReg
Set objReg=new RegExp
objReg.Pattern=CreatePattern(keyword)
objReg.IgnoreCase=True
objReg.Global=True
retVal=objReg.Test(FileName) '進(jìn)行搜索測(cè)試,如果通過(guò)則上色并輸出
if retVal then
OutPut=objReg.Replace(FileName,"font color='#FF0000'>$1/font>") '設(shè)置關(guān)鍵字的顯示顏色
'***************************該部分可以根據(jù)需要修改輸出************************************
OutPut="a href='#'>"OutPut"/a>br/>"
Response.Write(OutPut) '輸出匹配的結(jié)果
'*************************************可修改部分結(jié)束**************************************
ColorOn=1 '加入計(jì)數(shù)器的數(shù)目
else
ColorOn=0
end if
Set objReg=Nothing
End Function
End Class
'************************結(jié)束類SearchFile**********************
%>
html>
head>
meta http-equiv="Content-Type" content="text/html; charset=gb2312">
title>www.csdn.com.cn/title>
/head>

body>
form name="form1" method="post" action="% =Request.ServerVariables("PATH_INFO")%>">
關(guān)鍵詞:
input name="keyword" type="text" id="keyword">
input type="submit" name="Submit" value="搜索">
a href="help.htm" target="_blank">高級(jí)搜索幫助/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/>費(fèi)時(shí):"(timer()-st)*1000"毫秒")
end if

%>
/body>
/html>




標(biāo)簽:南京 清遠(yuǎn) 楚雄 上海 涼山 邢臺(tái) 通遼 赤峰

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《如何使用FSO搜索硬盤文件》,本文關(guān)鍵詞  如何,使用,FSO,搜索,硬盤,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題,煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無(wú)關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《如何使用FSO搜索硬盤文件》相關(guān)的同類信息!
  • 本頁(yè)收集關(guān)于如何使用FSO搜索硬盤文件的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章