vba复制文件夹

㈠ 如何用VBA复制整个文件夹包括子目录

Sub Files(Path As String, afterPath)
'Path：原文件夹路径；afterPath：目标文件夹路径
Dim Spath As String
Set fs = CreateObject("Scripting.FileSystemObject")
Spath = Dir(Path, vbDirectory)
Do While Len(Spath)
If Spath <> "." And Spath <> ".." Then
fs.CopyFolder Path, afterPath
Spath = Dir()
End If
Loop
End Sub

————————————————
版权声明：本文为CSDN博主「前端小菜鸟007」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/weixin_41844140/article/details/103188537

㈡ VBA 在图片文件夹中，查找文件名包含A列文本的图片，并复制到指定文件夹

Sub导出图片()
'先清空目标文件夹

DimFilenameAsString
Shell"cmd/c""del/s/qC:UsersAdministratorDesktop导出的*.jpg"""'用DOS命令删除输出文件夹下（包含子文件夹，但不删除子文件夹）的所有jpg文件
Application.ScreenUpdating=False
DimyAsInteger'y是行
DimFilPathAsString'这个是图片所在的父文件夹
DimnewfilepathAsString'图片要复制到这里
DimrngAsRange
DimsAsString

WithSheet1'选择目标sheet
Fory=2To10'从第2行到10行
FilPath="""D:Dropbox产品jpg"&.Cells(y,1).Text&"*.jpg"""
'用XCOPY命令，复制满足条件的文件包含子文件夹，同时也会在目标文件夹中建立相同的子文件夹
'FilePath中使用了通配符，假如产品是：A001，则可以复制"A001红色12cm”,"A001红色15cm”,"A001黑色12cm”,"A001白色15cm”,
Shell"cmd/c""x/s/y"&FilPath&"C:UsersAdministratorDesktop导出的"""
Next
.Cells(1,1).Select
EndWith
Application.ScreenUpdating=False
EndSub