xiaoxinghappy的做法麻烦了点。这样试试
Dim aa As FileSystemObject
Set aa = New FileSystemObject
Call aa.CopyFolder("c:\temp", "f:\temp1")
我的c:\temp下有多个文件夹,有的文件夹下还有子文件夹,
一次拷贝就成功了。
你可用通配符,一次拷一个盘。