Spring

为什么要用vbs呢，xcopy本身就可以，而且有很多详细的选项，可以满足各种需求。

Option Explicit

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

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

MsgBox "复制完成。", vbInformation, "完成"

'********************************************************************
'* Sub :     XCopy
'*
'* Purpose:  复制文件和目录树。
'*
'* Input:    fso            FileSystemObject 对象实例
'*           source         指定要复制的文件。
'*           destination    指定新文件的位置和/或名称。
'*           overwrite      是否覆盖已存在文件。 Ture 覆盖， False 跳过
'*
'* Output:   -
'*
'********************************************************************
Sub XCopy(fso, source, destination, overwrite)
    Dim s, d, f, l
    Set s = fso.GetFolder(source)
    If Not fso.FolderExists(destination) Then
        fso.CreateFolder destination
    End If
    Set d = fso.GetFolder(destination)
    For Each f In s.Files
        l = d.Path & "\" & f.Name
        If Not fso.FileExists(l) Or overwrite Then
            If fso.FileExists(l) Then
                fso.DeleteFile l, True
            End If
            f.Copy l, True
        End If
    Next
    For Each f In s.SubFolders
        XCopy fso, f.Path, d.Path & "\" & f.Name, overwrite
    Next
End Sub
复制代码