拷贝增量文件

Dim fso, CopyCount


Set fso = CreateObject("Scripting.FileSystemObject")


CopyCount = CopyCount + XCopy(fso, "D:\app\lieboscm\upload", "J:\upload", True)


MsgBox "拷贝了" & CopyCount & "个文件!"


'********************************************************************


'* Function :     XCopy


'*


'* Purpose:  复制文件和目录树。


'*


'* Input:    fso            FileSystemObject 对象实例


'*           source         指定要复制的文件。


'*           destination    指定新文件的位置和/或名称。


'*           overwrite      是否覆盖已存在文件。 Ture 覆盖， False 跳过


'*


'* Output:   返回复制的文件个数


'*


'********************************************************************


Function XCopy(fso, source, destination, overwrite)


    Dim s, d, f, l, CopyCount,timespec,time2


    timespec = 24*4
    time2= "2014-08-13 02:00:00"
    Set s = fso.GetFolder(source)


    If Not fso.FolderExists(destination) Then


        fso.CreateFolder destination


    End If


    Set d = fso.GetFolder(destination)


    CopyCount = 0


    For Each f In s.Files


        




        If DateDiff("h", f.DateCreated ,time2) < timespec then
         
        l = d.Path & "\" & f.Name  


        f.Copy l, True
        CopyCount = CopyCount + 1


        End If


        


        


       
    Next


    For Each f In s.SubFolders


        CopyCount = CopyCount + XCopy(fso, f.Path, d.Path & "\" & f.Name, overwrite)


    Next


    XCopy = CopyCount


End Function