@echo off
cd/d c:\X2
:loop
for /r c:\X2 %%i in (*.*) do  if not exist c:\X1\%%~nxi copy %%~nxi c:\X1
ping -n 61 127.1>nul
goto loop
复制代码

@echo off
:loop
for /r c:\X2 %%i in (*.*) do  if not exist c:\X1\%%~nxi copy %%~si c:\X1
ping -n 61 127.1>nul
goto loop
复制代码

@echo off
set n=3
set /p n=输入几秒检测一次：
set /a n=n+1
if %n% leq 1 goto :eof
:loop
xcopy x1\*.* x2\ /d
ping -n %n% 127.1 >nul
goto :loop
复制代码

SrcFolder = "D:\x1"
DstFolder = "D:\x2"
DateCOMLast = "0-1-1 00:00:00"
DateCOMMax = DateCOMLast
Do 
  CopyFiles SrcFolder, DstFolder, True, DateCOMLast
  WScript.Sleep 60000 ' 等待时间 单位:ms 60000=1 分钟
Loop Until false

Function CopyFiles(Src, Dst, overwrite, ByRef DateCOMLast)
   Dim fso, f, f1, fc
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFolder(Src)
   Set fc = f.Files
   DateCOMMax = DateCOMLast

   For Each f1 in fc ' 对源目录中的每一个文件进行 创建或修改 双重日期检测, 并确定是否复制
     If DateDiff("s", DateCOMLast, f1.DateCreated) > 0 Or DateDiff("s", DateCOMLast, f1.DateLastModified) > 0 Then
       f1.Copy Dst & "\" & f1.Name, overwrite
       If  DateDiff("s", DateCOMMax, f1.DateCreated) > 0 Then DateCOMMax = f1.DateCreated            ' 计算一批文件中最新的创建日期
       If  DateDiff("s", DateCOMMax, f1.DateLastModified) > 0 Then DateCOMMax = f1.DateLastModified  ' 或最新的修改日期
     End If
   Next
   DateCOMLast = DateCOMMax ' WScript.Echo "DateCOMLast:" & DateCOMLast  完成一批新文件的复制后, 设置最新的创建或修改日期
End Function
复制代码

SrcFolder = "D:\x1"
DstFolder = "D:\x2"
FnList = "c:\FileList.txt"

Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set fso = CreateObject("Scripting.FileSystemObject")
If Not (fso.FileExists(FnList)) Then
  Set FileList = fso.CreateTextFile(FnList, True)
  FileList.Close
End If

Do 
  CopyFiles SrcFolder, DstFolder, True, FnList
  WScript.Sleep 60000 ' 等待时间 单位:ms 60000=1 分钟
Loop Until false

Function CopyFiles(Src, Dst, overwrite, FList)
   Dim fso, f, f1, fc
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFolder(Src)
   Set fc = f.Files

   For Each f1 in fc ' 对源目录中的每一个文件进行 列表记录 和 实际文件 双重存在检测, 并确定是否复制
     If Not FoundFileInList(FList, f1.Name) And Not (fso.FileExists(Dst & "\" & f1.Name)) Then
       f1.Copy Dst & "\" & f1.Name, overwrite
       Set fo = fso.OpenTextFile(FList, ForAppending, False)
       fo.WriteLine f1.Name
       fo.Close
     End If
   Next
End Function

Function FoundFileInList(listspec, filespec)
   Const ForReading = 1
   Dim fso, theFile, retstring
   FoundFileInList = False
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set theFile = fso.OpenTextFile(listspec, ForReading, False)
   Do While theFile.AtEndOfStream <> True
      if theFile.ReadLine = filespec then
        FoundFileInList = True
        theFile.Close
        Exit Function
      End If
   Loop
   theFile.Close
End Function
复制代码

SrcFolder = "D:\x1"
DstFolder = "D:\x2"
Do 
  CopyFiles SrcFolder, DstFolder, false
  WScript.Sleep 60000 ' 等待 1 分钟
Loop Until false

Function CopyFiles(Src, Dst, overwrite)
   Dim fso, f, f1, fc
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFolder(Src)
   Set fc = f.Files
   For Each f1 in fc  
      If Not (fso.FileExists(Dst & "\" & f1.Name)) Then
        f1.Copy Dst & "\" & f1.Name, overwrite
      End If   
   Next
End Function
复制代码