---------------------------
ОК   
---------------------------

'сортировка файлов по исходным папкам
' если в папке output есть этот файл и он больше копируемого

Option Explicit
Const SrcFolderPath = "D:\output\"    'куда копируем где исходные файлы
Const ResFolderPath = "D:\input\"   'откуда копируем где обработанные файлы
 
Dim objFSO, TextStream, Folder, SubFolder, File, FilePath, FileSize2
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set TextStream = objFSO.OpenTextFile("log.txt",8,True)
 
TextStream.WriteLine "----- " & Now & " -----"
 
RecursiveFolderScan SrcFolderPath
 
MsgBox "Обработка завершена",vbInformation
 
'Создаём процедуру рекурсивного обхода каталога
Sub RecursiveFolderScan(FolderPath)
    'Получаем объектную модель текущего каталога
    Set Folder = objFSO.GetFolder(FolderPath)
 
    'Перебираем все файлы в текущем каталоге
    For Each File in Folder.Files
        'Проверяем существование аналогичного файла в результирующем каталоге
        FilePath = objFSO.BuildPath(ResFolderPath,File.Name)
        FileSize2 = objFSO.BuildPath(ResFolderPath,File.Size)
If objFSO.FileExists(FilePath) And (FileSize2 > File.Size) Then ' если в папке output есть этот файл и он больше копируемого
            'Если он существует, то производим замену
            objFSO.CopyFile FilePath, objFSO.BuildPath(Folder.Path,"\")
            AppendToLog "файл """ & File.Name & """ скопирован в """ & Folder.Path & """."
            objFSO.DeleteFile FilePath 
        End if
    Next
 
    'Перебираем все подкаталоги в каталоге
    For Each SubFolder in Folder.SubFolders
        RecursiveFolderScan(SubFolder.Path)
    Next
End Sub
 
Sub AppendToLog(Text)
    TextStream.WriteLine Time & ":" & Text
End Sub

     If objFSO.FileExists(FilePath) And (File1.Size > File2.Size) Then

почему-то работает только условие "если файл существует". Подскажите где ошибка.