Копирование новых файлов

Dim strSourceFolder, strDestFolder
strSourceFolder = "C:\Users\User\SourceFolder\"
strDestFolder = "C:\Users\User\DestFolder\"
 
For each file in StrSourceFolder
     ReplaceIfNewer (file, strDestFolder)
Next
 
Sub ReplaceIfNewer (SourceFile, DestFolder)
 
    Dim DateModifiedSourceFile, DateModifiedDestFile
    DateModifiedSourceFile = SourceFile.DateModified()
    DateModifiedDestFile = DestFolder & "\" & SourceFile.DateModified()
 
    If DateModifiedSourceFile < DateModifiedDestFile
        Copy SourceFile to SourceFolder
    End if
 
End Sub

' не проверяется существование каталога назначения!!!
Option Explicit
' в рабочем коде заменить на "False" или просто удалить следующую строку
Const bDebug = True
' и все строки начинающиеся с "  if bDebug then ..."
 
Dim sSrcFld: sSrcFld = "D:\1"
Dim sDstFld: sDstFld = "D:\2"
 
Sub mGF(s)
  Dim oFSO, f, sF, dF, v
  Set oFSO = WScript.CreateObject("Scripting.Filesystemobject")
 
  Set f = oFSO.GetFolder(s)
  For Each v In f.SubFolders
    ' создание копии структуры каталогов в каталоге назначения
    sF = s & "\" & v.Name
    dF = sDstFld & Mid(sF, Len(sSrcFld)+1)  ' строка
    If Not oFSO.FolderExists(dF) Then
      Set dF = oFSO.GetFolder(Mid(dF, 1, Len(dF)-Len(v.Name))).SubFolders ' объект
      dF.Add(v.Name)
    End If
 
    mGF s & "\" & v.Name
  Next
 
  Set f = oFSO.GetFolder(s)
  For Each v In f.Files
    sF = s & "\" & v.Name
    dF = sDstFld & Mid(sF, Len(sSrcFld)+1)
    If oFSO.FileExists(dF) Then
      If oFSO.GetFile(dF).DateLastModified < oFSO.GetFile(sF).DateLastModified Then
        If bDebug Then WScript.StdOut.WriteLine(sF & " -> " & dF)
        oFSO.CopyFile sF, dF
      Else
        If bDebug Then WScript.StdOut.WriteLine(sF & " -> Копировать не надо!")
      End If
    Else  ' структура каталогов уже создана
      If bDebug Then WScript.StdOut.WriteLine(sF & " -> " & dF)
      oFSO.CopyFile sF, dF
    End If
  Next
End Sub
 
mGF sSrcFld