Question

VB 复制文件夹函数

RT 谁帮我下一个复制文件夹的函数 具体要求如下:

指定一个目录c:\123
将其中的文件夹、文件以及子文件夹中的文件 复制到d:\123 中
(要求按照文件夹结构进行复制 d:123中不存在的文件夹要创建)

Answer 1

哈哈哈哈，用FSO对象就行了！
Private Sub Form_Load()
On Error Resume Next
Set a = CreateObject("scripting.filesystemobject")
a.copyfolder "C:\123", "D:\123\123"
If Err.Number = 76 Then
a.createfolder "D:\123"
a.copyfolder "C:\123", "D:\123\123"
End If
End Sub

Answer 2

Private Sub Command1_Click()
Shell "xcopy C:\123 D:\123\ /e /c /y", 0
End Sub

Answer 3

标记一下回头看