broly

On Error Resume Next
Dim strFolder1,strFolder2
strFolder1="D:\A"  '//要查找的目录
strFolder2="E:\B\"  '//目标目录,注意后面的反斜杠要加上
Call CopyFiles(strFolder1)
MsgBox "完成！"
WScript.Quit
Sub CopyFiles(strPath)
  Dim Folder,subFolders,Files,File,fso
  Set fso = CreateObject("Scripting.FileSystemObject") 
  Set Folder = fso.Getfolder(strPath)
  Set subFolders = Folder.subFolders
  Set Files = Folder.Files
  For Each File In Files
      fso.CopyFile File.Path,strFolder2,False '设置为false，表示如果文件存在则不覆盖
      If Err.Number<>0 Then Err.Clear
  Next
  For Each subfolder In subFolders
      CopyFiles(subFolder.Path) '递归查找子目录
  Next
End Sub
复制代码

broly

貌似一开始没有这样说。。
— —！

broly

原帖由 Spring 于 2011-2-14 16:36 发表
为什么要用vbs呢，xcopy本身就可以，而且有很多详细的选项，可以满足各种需求。Option Explicit

Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")

XCopy objFSO, "D:\A", "E:\B", False ...

既然春哥写了，我就不写了。

— —