[Resolvido] Pesquisa a partir de uma frase

[xanburzum 169]

A função Pesquisa buscas recursivamente todos os arquivos em um disco rígido para uma frase específica de um determinado diretório. Para ser usada apenas para obter o caminho do arquivo correspondente a uma determinada frase.

 

A função Pesquisa retorna uma seqüência de caminhos absolutos de todos os arquivos que contenham a frase de pesquisa. Cada caminho é separada por um carriage-return (vbCrLf) que é usado como um delimitador.

 

A função Pesquisa tem dois argumentos necessários, frase e diretório. A frase é uma string representando palavra ou frase exata para pesquisar. Diretorio é o caminho absoluto da pasta para começar a pesquisar recursivamente.

 

sintaxe:

 

string = Pesquisa (frase, diretorio)

code:

 

<%
Private Function Pesquisa(byVal frase, byVal directory)
	Dim objFSO, currentFolder, objFile, currentFile
	Dim strSearch, fileContents, objFolder

	Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
	Set currentFolder = objFSO.GetFolder(directory)
	For Each objFile In currentFolder.Files
		If LCase( objFile.Path ) = _
			LCase( server.mappath( _
			request.serverVariables("SCRIPT_NAME") ) ) Then
		Else
			Set currentFile = _
				objFSO.OpenTextFile( objFile.Path, 1, False )
			fileContents = lcase( currentFile.ReadAll() )
			currentFile.Close
			Set currentFile = Nothing
			If Instr( fileContents, frase) Then
				strSearch = strSearch & objFile.Path & vbCrLf
			Else
				strSearch = strSearch & ""
			End If
		End If
	Next
	For Each objFolder in currentFolder.SubFolders
		strSearch = strSearch & Pesquisa ( frase, objFolder )
	Next
	Set currentFolder = Nothing
	Set objFSO = Nothing
	Search = CStr( strSearch )
End Function
%>