<%@Idioma = vbscript codePage = 936%>
<%
dim st
ST = Timer ()
'********************************************************************
'*************** Pesquise a classe de arquivo de disco rígido pesquisas
'************ CHAMADA MÉTODO: ************
'************ Set NewsSearch = New SearchFile' Declaração **************
'************ newsearch.Folder = f:+e:' fonte de pesquisa de entrada ***************
'************ newsearch.keyword = Assembly' Palavra -chave *******************
'************ Newsearch.search' Iniciar pesquisa ************
'************ Set NewsSearch = Nothing' End *************
'************ Copyright (c) 完望完月完月 ******************
'*************** http://btyz.51web.cn/ **************
'********************************************************************
Classe SearchFile
Passando de Dim Pastas Um caminho absoluto, o múltiplo usa + sinal para se conectar, sem espaços
Palavra -chave Dim 'Passando palavras -chave
Dim objfso 'define variáveis globais
Dim contador 'define variáveis globais, o número de resultados de pesquisa
'*****************
Sub -Class_initialize privado
Set objfso = server.createObject (script.filesystemoBject)
Contador = 0 'inicialize o contador
Final sub
'***********************************************
Sub -Class_terminado privado
Defina objfso = nada
Final sub
'****************** Membro público, método chamado *********************************
Pesquisa de função
Pastas = dividir (pastas,+) 'converter em matriz
Palavra -chave = Trim (palavra -chave) 'Remova os espaços antes e depois
Se a palavra -chave = então
Response.write (<font color = 'Red'> Palavra -chave não pode estar vazia </font> <br/>)
função de saída
final se
'Apenas determine se os caracteres ilegais estão incluídos
sinalizador = instrum (palavra -chave,/) ou instrum (palavra -chave,/)
sinalizador = sinalizador ou instrum (palavra -chave, :)
sinalizador = sinalizador ou instrum (palavra -chave, |)
sinalizador = sinalizador ou instrum (palavra -chave, &)
Se a bandeira, então 'a palavra -chave não pode conter //: | &
Response.Write (<font color = 'Red'> Palavra -chave não pode conter //: | & </font> <br/>)
Função de saída 'Se isso estiver incluído, saia
final se
'Pesquisa com vários caminhos
dim i
para i = 0 para ubund (pastas)
Ligue para getAllFile (pastas (i)) 'Call Loop Recursive Função
próximo
Response.Write (Total <font color = 'Red'> & contador & </font> Os resultados foram pesquisados)
Função final
'********************************************
Função privada getallfile (pasta)
Dim Objfd, Objfs, Objff
Set objfd = objfso.getFolder (pasta)
Set objfs = objfd.subFolders
Set objff = objfd.files
'Viaje por subpastas
Dim strfdname 'declare o nome da subpasta
'************ Visite subpastas *******
em erro de erro em seguida
Para cada Onedir em Objfs
strfdname = onedir.name
'A pasta do sistema não está incluída na travessia
Se strfdname <> config.msi eqv strfdname <> eqv strfdname reciclado <> Recycler eqv strfdname <> informações de volume do sistema, então