本文共 1119 字，大约阅读时间需要 3 分钟。

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

转载地址：http://vafmi.baihongyu.com/