Private Const FILE_NOTIFY_CHANGE_ATTRIBUTES = &H4
Private Const FILE_NOTIFY_CHANGE_DIR_NAME = &H2
Private Const FILE_NOTIFY_CHANGE_FILE_NAME = &H1
Private Const FILE_NOTIFY_CHANGE_SIZE = &H8
Private Const FILE_NOTIFY_CHANGE_LAST_WRITE = &H10
Private Const FILE_NOTIFY_CHANGE_SECURITY = &H100
Private Const FILE_NOTIFY_CHANGE_ALL = &H4 Or &H2 _
  Or &H1 Or &H8 Or &H10 Or &H100
Private Const WAIT_OBJECT_0 = &H0

Private Declare Function FindFirstChangeNotification Lib "kernel32" _
  Alias "FindFirstChangeNotificationA" ( _
  ByVal lpPathName As String, _
  ByVal bWatchSubtree As Long, _
  ByVal dwNotifyFilter As Long) As Long

Private Declare Function FindNextChangeNotification Lib "kernel32" ( _
  ByVal hChangeHandle As Long) As Long

Private Declare Function FindCloseChangeNotification Lib "kernel32" ( _
  ByVal hChangeHandle As Long) As Long

Private Declare Function WaitForSingleObject Lib "kernel32" ( _
  ByVal hHandle As Long, _
  ByVal dwMilliseconds As Long) As Long

Sub CopyFiles( _
  strPath As String, _
  strTo As String)

    Dim hChange As Long
    Dim lngFlags As Long
    Dim lngStatus As Long
    Dim fso As New Scripting.FileSystemObject
    Dim fol As Scripting.Folder
    Dim fls As Scripting.Files
    Dim f As Scripting.File
    Dim dtmTime As Date
    
    lngFlags = FILE_NOTIFY_CHANGE_ALL
    
    hChange = FindFirstChangeNotification(strPath, _
       1 , lngFlags)
        
    If hChange >  0  Then
        Do
            DoEvents
            lngStatus = WaitForSingleObject(hChange, &HFFFF)
            If lngStatus = WAIT_OBJECT_0 Then
                Set fol = fso.GetFolder(strPath)
                Set fls = fol.Files
                For Each f In fls
                    If Not fso.FileExists(strTo & f.Name) Then
                        fso.CopyFile f.Path, strTo, False
                    End If
                Next f
                Call FindNextChangeNotification(hChange)
                dtmTime = Time()
            End If
        Loop While dtmTime < # 3 : 50 : 00  PM#
    End If
            
    Call FindCloseChangeNotification(hChange)
End Sub

CopyFiles "D:\2\", "D:\1\"