FSO를 사용하여 하드 디스크 파일을 검색하는 방법은 무엇입니까? FSO 용 하드 디스크 파일을 검색하는 방법을 알고 있습니까? 아직 이해하지 못하면 Foxin의 편집자를 따르면 이해하겠습니다.
<%@language = "vbscript"CodePage = "936"%>
<%
Dim st
st = timer ()
'*********************************************************************
'***************** 검색 하드 디스크 파일 클래스 searchFile ************
'************** 전화 방법 : ************
'************** Set NewsSearch = New SearchFile'선언 ************
'************** Newsearch.folder = "F :+E :"'검색 소스에 통과 *********************
'************** Newsearch.keyword = "Compilation"'키워드 *********
'************** Newsearch.search'시작 검색 ************
'************** Set NewsSearch = Nothing'End ***************
'*********************************************************************
클래스 SearchFile
Dim Polders '절대 경로 전달, Multipath는 + 표시를 사용하여 연결, 공백 없음
Dim 키워드 '키워드 전달
Dim Objfso '는 글로벌 변수를 정의합니다
Dim Counter '글로벌 변수 정의, 검색 결과 수
'******************* 초기화 **********************************
private sub class_initialize
set objfso = server.createobject ( "scripting.filesystemobject")
카운터 = 0 '카운터 초기화
종료 서브
'*******************************************************************
개인 sub class_terminate
OBJFSO = 아무것도 설정하지 않습니다
종료 서브
'******************** 공개 회원, *************************
기능 검색
폴더 = split (폴더, "+") '배열로 변환합니다
키워드 = 트림 (키워드) ''전후에 공간을 제거하십시오
Keyword = ""인 경우
response.write ( "<font color = 'red'> 키워드가 비어있을 수 없습니다 </font> <br/>")
종료 기능
끝 If
'불법 문자가 포함되어 있는지 확인하십시오
flag = instr (키워드, "") 또는 악기 (키워드, "/")
flag = 플래그 또는 악기 (키워드, ":")
flag = 플래그 또는 악기 (키워드, "|")
flag = 플래그 또는 악기 (키워드, "&")
플래그가 있다면 '키워드는 /: | &를 포함 할 수 없습니다.
response.write ( "<font color = 'red'> 키워드는/: | & </font> <br/>")를 포함 할 수 없습니다.
종료 함수 '포함되면 종료하십시오
끝 If
'다중 경로 검색
희미한 i
i = 0에서 Ubund (폴더)의 경우
getAllFile (폴더 (i)) '통화 루프 재귀 기능을 호출하십시오
다음
response.write ( "총 <font color = 'red'>"& counter & "</font> 결과가 발견되었습니다)
엔드 기능
'**************************************
개인 기능 getAllFile (폴더)
Dim objfd, objfs, objff
set objfd = objfso.getfolder (폴더)
objfs = objfd.subfolders를 설정하십시오
objff = objfd.files를 설정하십시오
'서브 폴더를 통과합니다
dim strfdname 'subfolder 이름을 선언합니다
'************** Subfolders 방문 *******
다음에 오류가 재개됩니다
OBJF의 각 Onedir에 대해
strfdname = onedir.name
'시스템 폴더는 트래버스에 포함되어 있지 않습니다
strfdname <> "config.msi"eqv strfdname <> "Recycled"eqv strfdname <> "Recycler"eqv strfdname <> "시스템 볼륨 정보"라면
sfn = 폴더 & ""& strfdname '절대 경로
GetAllFile (SFN) '호출 재귀를 호출하십시오
끝 If
다음
희미한 strflname
'************ vide the file **********
OBJFF의 각각 1 파일에 대해
strflname = onefile.name
'goodtop.ini 및 folder.htt는 열 범위에 없습니다
strflname <> "goodtop.ini"eqv strflname <> "folder.htt"라면
fn = 폴더 & ""& strflname
카운터 = 카운터+Coloron (FN)
끝 If
다음
'*******************************
'각 객체 인스턴스를 닫습니다
OBJFD = 아무것도 설정하지 않습니다
OBJFS = 아무것도 설정하지 않습니다
OBJFF = 아무것도 설정하지 않습니다
엔드 기능
'*************************** Generate matching pattern******************************************
개인 기능 CreatePattern (키워드)
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, "*", "[^//]*")*번호 일치
CreatePattern = replace (CreatePattern, "?", "[^//] {1}") '? 숫자 일치
CreatePattern = "("& CreatePattern & ")+" '전체 일치
엔드 기능
'******************************** 검색 및 색상 키워드 **************************************************************************** 누군가
개인 기능 Coloron (파일 이름)
희미한 objreg
set objreg = new regexp
objreg.pattern = CreatePattern (키워드)
objreg.ignorecase = true
objreg.global = true
retval = objreg.test (filename) '검색 테스트를 통과하면 색상 및 출력을 확인하십시오.
그렇다면 retval
output = objreg.replace (filename, "<font color = '#ff0000'> $ 1 </font>") '키워드의 디스플레이 색상을 설정합니다
'********************************이 부분은 필요에 따라 출력을 수정할 수 있습니다
output = "<a href = '#'>"& output & "</a> <br/>"
응답. (출력) '출력 일치 결과
'*******************************************************************
Coloron = 1 '추가 카운터 수
또 다른
Coloron = 0
끝 If
objreg = 아무것도 설정하지 않습니다
엔드 기능
수업 종료
'******************************** END CLASS SEARCHFILE *********************
%>
<html>
<헤드>
<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 ")%>">
키워드 :
<input name = "keyword"type = "text"id = "keyword">
<입력 유형 = "제출"이름 = "제출"value = "검색">
<a href = "help.htm"target = "_ blank"> 고급 검색 도움말 </a>
</form>
<%
희미한 키워드
키워드 = request.form ( "키워드")
키워드 <> ""라면
SET NewsSearch = New SearchFile
Newsearch.Follers = "E : Media+F :"
Newsearch.keyword = 키워드
Newssearch.search
NORCEARCH = 아무것도 설정하지 않습니다
response.write ( "<br/> 시간 소모 :"& (Timer () -ST)*1000 & "MS")
끝 If
%>
</body>
</html>
하드 디스크 파일을 검색하는이 FSO 메소드가 도움이된다고 생각되면 엄지 손가락을 알려주십시오. 더 많은 관련 콘텐츠를 보려면 Wonew 기술 채널을 따르십시오. 지원해 주셔서 감사합니다!