Код

On Error Resume Next

Dim WSH
Dim FSO

DiffExePath = "C:\Program Files\Araxis\Araxis Merge v6.5 NSIS\compare.exe"
MyScriptsPath = "D:\Program Files\1c\v77-25\bin\config\"
NewScriptsPath = "D:\work\1c\OpenConf\OpenConf_Scripts\"

Set WSH = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")

cmd = EmbraceString(DiffExePath, """") & " " & EmbraceString(FSO.BuildPath(NewScriptsPath, "ВспомогательныеДанные\Intell\"), """")  _
	& " " & EmbraceString(FSO.BuildPath(MyScriptsPath, "Intell\"), """")
RetCode = WSH.Run(cmd, 1, False)


Set NewFiles = CreateObject("Scripting.Dictionary")
GetFiles FSO.BuildPath(NewScriptsPath, "Скрипты"), True, "vbs", NewFiles

Set MyFiles = CreateObject("Scripting.Dictionary")
GetFiles FSO.BuildPath(MyScriptsPath, "scripts"), True, "vbs", MyFiles

MyFilesArray = MyFiles.Items
NewFilesArray = NewFiles.Items
For Each MyFileName In MyFiles
	MyFilePath = MyFiles.Item(MyFileName)
	If NewFiles.Exist(MyFileName) Then
		cmd = EmbraceString(DiffExePath, """") & " " & EmbraceString(MyFilePath, """")  _
			& " " & EmbraceString(NewFiles.Item(MyFileName), """")
		RetCode = WSH.Run(cmd, 1, True)
	End If
Next


Function GetFiles(Path, Recursive, Ext, Files)
	Set Folder = FSO.GetFolder(Path)

	For Each File In Folder.Files
		Files.Add File.Name, File.Path
	Next

	If Recursive = True Then
		For Each SubFolder In Folder.SubFolders
			If SubFolder.Name <> "CVS" Then
				GetFiles FSO.BuildPath(Path, SubFolder.Name), Recursive, Ext, Files
			End If
		Next
	End If
End Function


Function EmbraceString(aStr, aSymbol)
	EmbraceString = aSymbol & aStr & aSymbol
End Function