VBA- 拷贝文件夹下的所有文件到一个新的文件夹下

2024年6月2日 267次阅读 来源: 前端小菜鸟007

把代码中Path下的文件复制到afterPath目录下

Sub copyFiles(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
    原文作者：前端小菜鸟007
    原文地址: https://blog.csdn.net/weixin_41844140/article/details/103188537
    本文转自网络文章，转载此文章仅为分享知识，如有侵权，请联系博主进行删除。
点赞