VBA- 提取指定文件夹下所有文件到指定目录

最新推荐文章于 2024-08-17 09:55:39 发布

beatfull_now

最新推荐文章于 2024-08-17 09:55:39 发布

阅读量3.5k

点赞数 1

分类专栏： VBA 文章标签： vba

原文链接：https://blog.csdn.net/weixin_41844140/article/details/103188537?ops_request_misc=%257B%2522request%255Fid%2522%253A%2522162368091916780261957971%2522%252C%2522scm%2522%253A%252220140713.130102334.pc%255Fall.%2522%257D&request_id=162368091916780261957971&b

版权

VBA 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

这段代码展示了如何使用VBA（Visual Basic for Applications）来遍历指定文件夹并复制所有子文件夹及其包含的文件到新的目标路径。通过创建`FileSystemObject`，检查每个子文件夹，并调用`CopyFolder`方法实现复制。

摘要由CSDN通过智能技术生成

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