'==========================================================================
' NAME: FSO_File_ReadAll2.vbs 
' AUTHOR: Neal Walters 
' DATE  : 3/26/2005
' http://VBScript-Training.com 
'==========================================================================
Option Explicit 

   Dim fso, myFolderName, objFolder, myFileName, objFile, myFQFilename, objTextStream, fileContents
   
   Set fso = CreateObject("Scripting.FileSystemObject")
   
   Dim forReading, forWriting, forAppending 
   forReading = 1 
   forWriting = 2 
   forAppending = 8

   myFileName = "c:\Documents and Settings\nwalters\My Documents\Camtasia Studio\VBScript-Training2\FSO_Drive_Objects.txt" 
   
   Set objTextStream = fso.OpenTextFile(myFileName, forReading)
   fileContents =   objTextStream.ReadAll
   
   WScript.Echo fileContents
   
'==========================================================================
' NAME: FSO_File_ReadLineFilter.vbs 
' AUTHOR: Neal Walters 
' DATE  : 3/26/2005
' http://VBScript-Training.com 
'==========================================================================
Option Explicit 

   Dim fso, myFolderName, objFolder, myFileName, objTextStream, fileContents, currentLine, lineCounter 
   Dim BlankLineCounter, filter, wordPosition, linesFoundCounter, LinesNotFoundCounter 
   
   Set fso = CreateObject("Scripting.FileSystemObject")
   
   Dim forReading, forWriting, forAppending 
   forReading = 1 
   forWriting = 2 
   forAppending = 8

   myFileName = "c:\Documents and Settings\nwalters\My Documents\Camtasia Studio\VBScript-Training2\FSO_Drive_Objects.txt" 
   
   Set objTextStream = fso.OpenTextFile(myFileName, forReading)

'Read all at once method    
'    fileContents =   objTextStream.ReadAll
'    WScript.Echo fileContents

   filter = "read" 
   
    
   Do While Not objTextStream.AtEndOfStream 
     lineCounter = lineCounter + 1 
     currentLine = objTextStream.ReadLine 
     If currentLine = "" Then 
        BlankLineCounter = BlankLineCounter + 1 
     End If 
     
     wordPosition = InStr(ucase(currentLine), ucase(filter)) 
     If wordPosition > 0 Then 
        WScript.Echo "Line " & lineCounter & ": " & currentLine 
        linesFoundCounter = linesFoundCounter + 1 
     Else 
        LinesNotFoundCounter = LinesNotFoundCounter + 1 
     End If 
     
     
   Loop
   
   WScript.Echo VbCrLf & " This file contains " & BlankLineCounter & " blank lines out of a total of " & _ 
                         lineCounter & " lines." 
   WScript.Echo " This file contains the phrase: '" & filter & "' on " & _ 
                             linesFoundCounter & " lines. "                   
   WScript.Echo " And " & LinesNotFoundCounter & " lines do not contain this phrase."