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

   Dim fso, myFolderName, objFolder, myFileNameIn, myFileNameOut, objTextStreamIn, objTextStreamOut
   Dim fileContents, currentLine, lineCounter 
   Dim BlankLineCounter, filter, wordPosition, linesFoundCounter, LinesNotFoundCounter 
   
   Set fso = CreateObject("Scripting.FileSystemObject")
   
   Dim forReading, forWriting, forAppending, overwrite 
   forReading = 1 
   forWriting = 2 
   forAppending = 8
   Overwrite = True 

   myFileNameIn  = "c:\Documents and Settings\nwalters\My Documents\Camtasia Studio\VBScript-Training2\FileIn.txt" 
   myFileNameOut = "c:\Documents and Settings\nwalters\My Documents\Camtasia Studio\VBScript-Training2\FileOut.txt" 

   Set objTextStreamIn = fso.OpenTextFile(myFileNameIn, forReading)
   fileContents =   objTextStreamIn.ReadAll
   objTextStreamIn.Close 
   
   WScript.Echo "Input File Value=" & VbCrLf & fileContents   
   
   Set objTextStreamOut = fso.CreateTextFile(myFileNameOut, Overwrite) 
   
   objTextStreamOut.Write "This is my output:" & VbCrLf & fileContents 

   objTextStreamOut.Close 
   
   WScript.Echo "New file has been created " 
   
'==========================================================================
' NAME: FSO_File_Write2.vbs 
' AUTHOR: Neal Walters
' DATE  : 3/26/2005
' http://VBScript-Training.com 
'==========================================================================
Option Explicit 

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

   myFileNameOut = "c:\Documents and Settings\nwalters\My Documents\Camtasia Studio\VBScript-Training2\FileOut2.txt" 

   
   

   Set objTextStream = fso.OpenTextFile(myFileNameOut, forReading)
   
   Dim fn, ln, city 
   Do While Not objTextStream.AtEndOfStream 
      fn =  objTextStream.Read(10) 
      ln =  objTextStream.Read(20) 
      city =  objTextStream.Read(10) 
      WScript.Echo "fn=" & fn & "  ln=" & ln & " city=" & city 
   Loop 
   
   
   
   objTextStream.Close 
   


'==========================================================================
' NAME: FSO_File_WriteLine.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
   Dim Overwrite 
   Overwrite = True 

   myFileName = "c:\Documents and Settings\nwalters\My Documents\Camtasia Studio\VBScript-Training2\NealDemoWriteLine.html" 
   
   Set objTextStream = fso.CreateTextFile(myFileName, Overwrite) 
   
   objTextStream.WriteLine "
Heading1
" 
   objTextStream.WriteLine "
Fred,Flinstone,Bedrock
"
   objTextStream.WriteLine "
Barnie,Rubble,Bedrock
" 

   objTextStream.Close