VBA中 如何编写程式 批量复制文件夹？从 F盘复制到D盘、、求高手教导~~

Question

例如：我想将F盘中同一创建日期的文件夹：“1”、“2”、“3” 复制到 D盘 该怎么写？ 高手们 多帮下我这菜鸟~~

Answer 1

采用FSO文件格式传输。
先添加引用：Microsoft Scripting Runtime
代码示例如下：
Dim fso As New FileSystemObject, fldr As Folder
Set fldr = fso.GetFolder("f:\1")
fldr.Copy "d:\"追问

十分感谢、、可你的好像只是单个文件操作呢、、有批量的吗？ 就是多个文件夹复制过去~~

追答

1、这是一个复制文件夹的，不是复制文件，你可以把所有文件集中在一个文件夹或所有文件夹集中在一个文件夹中。
2、代码只是举例了一处文件夹的复制，批量复制只要重复一下代码就行了。比如文件夹有1～10个需要复制。
Dim fso As New FileSystemObject, fldr As Folder
for i=1 to 10
strA="f:\" & i
Set fldr = fso.GetFolder(strA)
fldr.Copy "d:\"
next i

Answer 2

汉族复