Hey Friends ... please can you help me on this ..
scenario: I got two folders one is old version folder and other is new version folder.. There are about 100 files in that folder.. so i need to compare each one filein old version folder with other file in new version folder ,I have written below code .. it is working if i mention path for each file..but I need to put in loop so that it checks all files in the folders...
scenario: I got two folders one is old version folder and other is new version folder.. There are about 100 files in that folder.. so i need to compare each one filein old version folder with other file in new version folder ,I have written below code .. it is working if i mention path for each file..but I need to put in loop so that it checks all files in the folders...
Code:
Option explicit
Dim File_Sys_Obj, File_Obj1, File_Obj2, Old_V_Folder, New_V_Folder, OVFiles, NVFiles, OFile, NFile, Str2, Str1 ,File ,Name_File,fldext
Set File_Sys_Obj = createobject("Scripting.FileSystemObject")
Set Old_V_Folder = File_Sys_Obj.GetFolder("U:\Similar")
Set New_V_Folder = File_Sys_Obj.GetFolder("U:\Different")
Set OVFiles =Old_V_Folder.Files
Set NVFiles = New_V_Folder.Files
NFile ="U:\Different\first.txt"
OFile ="U:\Similar\first.txt"
For each File in OVFiles
'z = File.name
Name_File = File.path
Set File_Obj1 = File_Sys_Obj.OpenTextFile(Name_File,1,false)
Set File_Obj2 = File_Sys_Obj.OpenTextFile(NFile,1,false)
While File_Obj1.AtEndOfStream <> true
Str1= File_Obj1.ReadAll
Str2= File_Obj2.ReadAll
If StrComp(Str1, Str2, 0) <> 0 Then
Msgbox "Files not Identical"
If File_Sys_Obj.FolderExists("U:\HeyNotSim")then
File_Sys_Obj.CopyFile "U:\Similar\first.txt","U:\HeyNotSimi/first.txt",True
Else
File_Sys_Obj.CreateFolder("U:\HeyNotSimi")
File_Sys_Obj.CopyFile "U:\Similar\first.txt","U:\HeyNotSimi\",True
End If
reporter.ReportEvent micFail, " Two Files Are Not Similar","Failure"
Else
Msgbox "Files Identical"
'fso.CopyFile "C:\Users\sarishr\Desktop\first.txt","C:\Users\sarishr\Desktop\Similar\first.txt",True
Reporter.ReportEvent micPass, "Two Files Are Similar"," Sucess"
End If
Wend
Next
Set File_Obj1 = Nothing
Set File_Obj2 = Nothing
Set OVFiles = Nothing
Set NVFiles = Nothing
Set Old_V_Folder=Nothing
Set New_V_Folder = Nothing
Set File_Sys_Obj = Nothing