dim oFSO
' Create the file system object
set oFSO = CreateObject ("Scripting.FileSystemObject")

'Option Explicit
' *******************************************************************************************
' Create a new txt file

' Parameters:
' FilePath - location of the file and its name
' *******************************************************************************************
Function CreateFile (FilePath)
    ' Variable that will hold the new file object
    dim NewFile
    ' Create the new text file
    set NewFile = oFSO.CreateTextFile(FilePath, True)
    set CreateFile = NewFile
    End Function

' *******************************************************************************************
' Check if a specific file exist

' Parameters:
' FilePath - Location of the file and its name
' *******************************************************************************************
Function CheckFileExists (FilePath)
    ' Check if the file exists
    CheckFileExists = oFSO.FileExists(FilePath)
End Function

' *******************************************************************************************
' Write data to file

' Parameters:
' FileRef - Reference to the file
' str - Data to be written to the file
*******************************************************************************************
Function WriteToFile (byref FileRef,str)
    ' Write str to the text file
    FileRef.WriteLine(str)
End Function

' *******************************************************************************************
' Read line from file
' Parameters:
' FileRef - reference to the file
' *******************************************************************************************
Function ReadLineFromFile (byref FileRef)
    ' Read line from text file
    ReadLineFromFile = FileRef.ReadLine
End Function
' *******************************************************************************************
' Closes an open file.
' Parameters:
' FileRef - Reference to the file
' *******************************************************************************************
Function CloseFile (byref FileRef)
    FileRef.close
End Function

'******************************************************************************************
' Opens a specified file and returns an object that can be used to
' read from, write to, or append to the file.

' Parameters:
' FilePath - Location of the file and its name
' mode options are:
' ForReading - 1
' ForWriting - 2
' ForAppending - 8
' *******************************************************************************************
Function OpenFile (FilePath,mode)
' Open the txt file and return the File object
set OpenFile = oFSO.OpenTextFile(FilePath, mode, True)
End Function
' *******************************************************************************************
' Copy an open file.
' Parameters:
' FilePathSource - Location of the source file and its name
' FilePathDest - Location of the destination file and its name
' *******************************************************************************************
Sub FileCopy ( FilePathSource,FilePathDest)
    ' copy source file to destination file
    oFSO.CopyFile FilePathSource, FilePathDest
End Sub

' *******************************************************************************************
' Delete a file.

' Parameters:
' FilePath - Location of the file to be deleted
' *******************************************************************************************
Sub FileDelete ( FilePath)
    ' Copy source file to destination file
    oFSO.DeleteFile ( FilePath)
End Sub

' *******************************************************************************************
' Compare two text files.
'
' Parameters:
' FilePath1 - Location of the first file to be compared
' FilePath2 - Location of the second file to be compared
' FilePathDiff - Location of the differences file
' ignoreWhiteSpace - Controls whether or ignore differences in white space characters
' true - Ignore differences in white space
' false - Do not ignore difference in white space
' Return Value: true if files are identical, false otherwise'
' *******************************************************************************************
Function FileCompare (byref FilePath1, byref FilePath2, byref FilePathDiff, ignoreWhiteSpace)

    dim differentFiles
    differentFiles = false

    dim f1, f2, f_diff
    ' Open the files
    set f1 = OpenFile(FilePath1,1)
    set f2 = OpenFile(FilePath2,1)
    set f_diff = OpenFile(FilePathDiff,8)

    dim rowCountF1, rowCountF2
    rowCountF1 = 0
    rowCountF2 = 0

    dim str
    ' Count how many lines there are in the first file
    While not f1.AtEndOfStream
        str = ReadLineFromFile(f1)
        rowCountF1= rowCountF1 + 1
    Wend

    ' Count how many lines there are in the second file
    While not f2.AtEndOfStream
        str = ReadLineFromFile(f2)
        rowCountF2= rowCountF2 + 1
    Wend

    ' Re-open the files to go back to the first line in the files
    set f1 = OpenFile(FilePath1,1)
    set f2 = OpenFile(FilePath2,1)

    ' compare the number of lines in the two files.
    ' assign biggerFile - The file that contain more lines
    ' assign smallerFile - The file that contain fewer lines
    dim biggerFile, smallerFile
    set biggerFile = f1
    set smallerFile = f2
    If ( rowCountF1 < rowCountF2) Then
        set smallerFile = f1
        set biggerFile = f2
    End If

    dim lineNum,str1, str2
    lineNum = 1
    str = "Line" & vbTab & "File1" & vbTab & vbTab & "File2"
    WriteToFile f_diff,str
    ' Loop on all the lines in the smaller file
    While not smallerFile.AtEndOfStream
        ' read line from both files
        str1 = ReadLineFromFile(f1)
        str2 = ReadLineFromFile(f2)

    ' Check if we need to ignore white spaces, if yes, trim the two lines
    If Not ignoreWhiteSpace Then
        Trim(str1)
        Trim(str2)
    End If

    ' If there is a difference between the two lines, write them to the differences file
    If not (str1 = str2) Then
        differentFiles = true
        str = lineNum & vbTab & str1 & vbTab & vbTab & str2
        WriteToFile f_diff,str
    End If
    lineNum = lineNum + 1
    Wend

    ' Loop through the bigger lines, to write its line to the different file
    While not biggerFile.AtEndOfStream
        str1 = ReadLineFromFile(biggerFile)
        str = lineNum & vbTab & "" & vbTab & vbTab & str2
        WriteToFile f_diff,str
        lineNum = lineNum + 1
    Wend

    FileCompare = Not differentFiles
End function


' ************** Example of using these functions **********************

FolderPath = "C:\temp\FSO"
FilePath = "C:\temp\FSO\txt." 
FilePath1 = "C:\temp\FSO\txt1.txt" 
FilePath2 = "C:\temp\FSO\txt2.txt" 
FilePathDiff = "C:\temp\FSO\txt_diff.txt"  

If (oFSO.FolderExists(FolderPath)) Then
     Reporter.ReportEvent 0, "Folder Exists Step", FolderPath & " folder existed before."
      if( CheckFileExists(FilePath) ) Then
            FileDelete FilePath
            Reporter.ReportEvent 0, "File Exists Step", FilePath & " file was deleted"
     End If
     if( CheckFileExists(FilePath1) ) Then
            FileDelete FilePath1
            Reporter.ReportEvent 0, "File Exists Step", FilePath1 & " file was deleted"
     End If
     if( CheckFileExists(FilePath2) ) Then
            FileDelete FilePath2 
            Reporter.ReportEvent 0, "File Exists Step", FilePath2 & " file was deleted"
     End If
     if( CheckFileExists(FilePathDiff) ) Then
            FileDelete FilePathDiff
            Reporter.ReportEvent 0, "File Exists Step", FilePathDiff & " file was deleted"
     End If
Else
      Set fold = oFSO.CreateFolder(FolderPath)
      Reporter.ReportEvent 0, "Folder Exists Step", FolderPath & " folder was created"
End If

set f = CreateFile(FilePath) 

if( CheckFileExists(FilePath) ) Then
     Reporter.ReportEvent 0, "File Exists Step", FilePath & " file was created"
End If

WriteToFile f,"first line"
WriteToFile f,"second line" 
CloseFile f 

set f = CreateFile(FilePath2) 
CloseFile f 

set f = OpenFile(FilePath2,2) 
 WriteToFile f,"test line"  
CloseFile f

FileCopy FilePath, FilePath1
if(FileCompare(FilePath1,FilePath2,FilePathDiff,false)) Then 
     Reporter.ReportEvent 1, "Files Compare Step", FilePath1 & FilePath2 &" files are identical, but should not be"
Else
     Reporter.ReportEvent 0, "Files Compare Step", FilePath1 & " & " & FilePath2 &" have difference." 
End if