'**************************************
    ' Name: Edit and manipulate text files
    ' Description:This is a drawn out exampl
    '     e of reading and writing with the FileSc
    '     riptingObject. This is similar to copyin
    '     g a file, but allows rewriting specific 
    '     line(s). It's intentionally overdone so 
    '     that you can delete what you don't want.
    '     Includes extensive error handling. I've 
    '     included lots of comments for newbies.
    'T Runstein
    ' By: T Runstein
    '
    ' Inputs:If using in VB, include referen
    '     ce to Microsoft Scripting Runtime
    '
    ' Assumes:Make sure you change the file 
    '     names (strpath and strFldr) or create a 
    '     C:\FirstFile.txt before running the scri
    '     pt.
    '
    'This code is copyrighted and has    ' limited warranties.Please see http://w
    '     ww.Planet-Source-Code.com/xq/ASP/txtCode
    '     Id.6454/lngWId.4/qx/vb/scripts/ShowCode.
    '     htm    'for details.    '**************************************
    
    option explicit
    On Error Resume Next
    'Since this was written for Windows Scri
    '     pting Host, 
    'it uses VBScript which doesn't use type
    '     s.
    'To use this with VB, as types to the de
    '     clarations
    Dim objFSO 	'as FileSystemObject
    Dim fle1	'as file
    Dim fle2	'as file
    Dim strPath	'as String
    Dim strFldr	'as String
    Dim strLine	'as String
    strPath = "C:FirstFile.txt" 	'Put In the file you want To edit
    strFldr = "C:TempFile.txt"
    Main 'This Calls the Main Sub
    Sub Main()
    Dim rtn 'as Integer
    	rtn = CopyStuff() 'This calls and runs the CopyStuff function
    if rtn = 1 Then 
    	MsgBox "Copy is complete"
    else
    	MsgBox "An Error was found and the process was aborted. " & Cstr(rtn)
    		'The & Cstr(rtn) will display the number returned by CopyStuff
    		'After you've got your script running, you may want To remove this feature
    End if
    'Cleanup
    if Not fle1 is nothing Then Set fle1 = nothing
    if Not fle2 is nothing Then Set fle2 = nothing
    if Not objFSO is nothing Then Set objFSO = nothing
    End Sub
    function CopyStuff()
    Set objFSO = CreateObject("Scripting.FileSystemObject") 'This creates the FSO
    	'I've included Error handling after Each step
    	if err.number <> 0 Then 
    		MsgBox "Error In Creating Object: " & err.number & "; " & err.description 
    		CopyStuff = 0 'Returns this number
    		Exit function 'Stop processing, go back to Main
    	End if
    if Not objFSO.FileExists(strPath) Then 'The file To copy is not present
    	MsgBox "The " & strPath & " file was Not found On this computer"
    	CopyStuff = 2
    	Exit function
    End if
    if objFSO.FileExists(strFldr) Then
    	objFSO.DeleteFile(strFldr) 'If the temp file is found, delete it
    End if
    	Set fle1 = objFSO.OpenTextFile(strPath) 'Open
    		if err.number <> 0 Then 	
    			MsgBox "Error opening " & strPath & ": " & err.number & "; " & err.description
    			CopyStuff = 3
    			Exit function
    		End if
    	Set fle2 = objFSO.CreateTextFile(strFldr) 'Create the temp file
    		if err.number <> 0 Then 	
    			MsgBox "Error creating temp ini: " & err.number & "; " & err.description
    			CopyStuff = 4
    			Exit function
    		End if
    	'Here's the work horse that does the copying
    	Do While Not fle1.AtEndofStream 'Change this line, Change this one too
    		strLine = fle1.ReadLine
    		Select Case strLine
    			Case "Change this line"
    				'When the above line is found, it is replaced With the line below
    				fle2.WriteLine "Changed"
    			Case "Change this one too"
    				fle2.WriteLine "This line is changed"
    			Case Else
    				'This copies whatever was read In fle1
    				fle2.WriteLine strLine
    		End Select
    	Loop
    	if err.number <> 0 Then 
    		MsgBox "Error transfering data: " & err.number & "; " & err.description
    		CopyStuff = 5
    		fle1.close
    		fle2.close
    		Exit function
    	End if
    	fle1.close
    	 Set fle1 = nothing
    	fle2.close
    	 Set fle2 = nothing
    	objFSO.DeleteFile strPath, True	'This deletes the original file
    	objFSO.MoveFile strFldr, strPath 'This moves and renames the temp file, replacing the original
    	if err.number <> 0 Then 
    		MsgBox "Error replacing " & strPath & " With new file: " & err.number & "; " & err.description
    		CopyStuff = 6
    	Else
    		CopyStuff = 1 'Remember that In Main, a 1 means successful
    	End if
    End function