Private Sub Command1_Click()
Dim FileSys As New FileSystemObject
Dim FolderObj As Folder
Set FileSys = CreateObject("scripting.filesystemobject")
'FileSys.CopyFile "c:/ss.txt", "d:/mm.txt", True '拷贝c盘文件ss到d盘并改名为mm
If Dir("D:\2", vbDirectory) = "" Then
FileSys.CopyFolder "c:/1", "d:/2", True '拷贝文件夹
MsgBox "文件复制成功!"
Else
MsgBox "D盘文件夹2存在,请改名!"
Exit Sub
End If
End Sub