Jobs
Author: Kaunal Date Submitted: 1/11/2005 Category: Internet Compatibility: VB 6,Vbscript This code has been accessed 11038 times.
Email Yourself this snippet:
Searches a substring in multiple files within a directory
Code
<html> <head> <script language="vbscript"> Function fun() Const ForReading = 1, ForWriting = 2, ForAppending = 3 Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 dim str dim filename Dim Line str = frm.elements.txt1.value Set FSO = CreateObject("Scripting.FileSystemObject") Set folder = FSO.GetFolder("C:\gandhi\work") Set files = folder.Files if str <> "" then For Each file in Files 'document.Write file.Name & "<BR>" 'Filename = Split(file.name, ".") 'document.Write Filename(0) & "<br>" filename = file.name 'document.write filename & "<br>" 'if right(file.Name,3)="txt" Then filepath = "c:\gandhi\work\" & filename Set TextStream = FSO.OpenTextFile(Filepath, ForReading, False, TristateUseDefault) document.Write "<pre>" Do While Not TextStream.AtEndOfStream Line = TextStream.ReadLine Line = Line & vbCrlf if instr(Line,str) > 0 then document.write filename & ":" & Line end if Loop document.Write "</pre><hr>" TextStream.Close Set TextStream = nothing 'end if Next else msgbox "Insert some STRING...!" end if Set files = folder.Files Set file = Nothing Set fso = Nothing End Function </script> </head> <body> <form name="frm"> <input type="text" name="txt1" value=""> <input type="button" name="btn" value="List" onClick="fun()"> </form> </body> </html>
