Implementação da busca recursiva por arquivos em diretorios e subdiretorios

'-------------------------------------------------------------------------------------------------------- '  Procura uma string em todos os arquivos do diretorio especificado '-------------------------------------------------------------------------------------------------------- ' a = Search("http:", "c: emp" )    ' b = split(a ,vbCrLf) ' For i = 0 to ubound(b) - 1 '  Response.Write b(i) & "<br>" ' Next '-------------------------------------------------------------------------------------------------------- Private Function Search(byVal phrase, 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, phrase ) Then strSearch = strSearch & objFile.Path & vbCrLf Else strSearch = strSearch & "" End If End If Next For Each objFolder in currentFolder.SubFolders strSearch = strSearch & Search( phrase, objFolder ) Next Set currentFolder = Nothing Set objFSO = Nothing Search = CStr( strSearch ) End Function

Quebra-Linha

Colaborador..: Adenilton Rodrigues
Categoria(s).: ASP;
Data.........: 11/04/2002 15:23:03
Visualizado..: 361 vezes
Fonte........: AdeN Knowledge DB