フォルダの差分を比較するためのVBScript

フォルダの差分を比較するvbScriptのクラスを作成しました。
Winマージをプログラムで書いたような感じです。
使い方：第一引数と第二引数にフォルダパスを入れて実行

Dim DiffObj
Set DiffObj = new Diff
If DiffObj.IsDiff("./test","./test2") Then
	MsgBox("差分有")

Else
	MsgBox("差分無")

End If

Class Diff
	Public Function IsDiff(path1,path2)	

		If IsDiffFolder(path1,path2)=true then
			IsDiff=true
			Exit Function
		End If 

		If IsDiffFolder(path2,path1) =true then
			IsDiff=true
			Exit Function
		End If 
		IsDiff=false
	End Function

	'差分があればtrueを返す
	Private Function IsDiffFolder(path1,path2)
		Set fso   = CreateObject("Scripting.FileSystemObject")

		Set fsoFolder = fso.GetFolder(path1)
		For Each fsoFile In fsoFolder.Files
			If IsDiffFile(path1 & "\" & fsoFile.Name,path2 & "\" & fsoFile.Name) =true then
				'差分がある場合どのファイルで差分があるかをログファイルに書き出す例
				'LogWriterObj.write( path1 & "\" & fsoFile.Name & "で差分あり")
				IsDiffFolder=true
				Exit Function
			End If
		Next
		
    	For each subfolder in fsoFolder.subfolders			
			If IsDiff(path1 & "\" & subfolder.name,path2 & "\" & subfolder.name)=true then
				IsDiffFolder=true
				Exit Function
			End If
		Next
	End Function

	'差分があればtrueを返す
	Private Function IsDiffFile(file1Path,file2Path)

		Set objFSO = CreateObject("Scripting.FileSystemObject") 

		Set objFile1 = objFSO.OpenTextFile(file1Path, 1) 
		text1 = objFile1.ReadAll 

		Set objFile1 = objFSO.OpenTextFile(file2Path, 1) 
		text2 = objFile1.ReadAll 


		objFile1.Close 
		If InStr(text1,text2) = 0 OR InStr(text2,text1) = 0 Then 
			IsDiffFile=true
		Else
			IsDiffFile=false
    	End If 
	End Function
End Class


'''

またPrivateメソッドですが、IsDiffFileはファイルの差分を比較するメソッドです。