VBA查找指定文件夹下的所有文件(包括子文件夹)

学习记录 专栏收录该内容
3 篇文章 0 订阅

整体思路是:
1.将需要查找所有文件的文件夹地址赋给数组,成为arr(1)
2.使用folder.subfolders属性将子文件夹继续赋给数组,成为arr(i)
3.使用folder.files属性访问所有文件夹内的文件
核心算法就是,将子文件夹地址不断加入数组,然后遍历数组中的每一个地址访问文件

首先需要添加引用:Microsoft Scripting runtime
在这里插入图片描述
添加用在这里插入图片描述

Sub 所有文件夹()
Dim fs As New FileSystemObject, arr(), i, j, k
Dim fd, subfd As Folder
Dim files As file
Set fp = Application.FileDialog(msoFileDialogFolderPicker) '选择需要查询文件的文件夹
fp.Show
Set paths = fp.SelectedItems
ReDim arr(1)
arr(0) = paths(1) '文件夹路径赋给数组
Application.ScreenUpdating = False
Do Until i > k
    Set fd = fs.GetFolder(arr(i))
    For Each files In fd.files
        j = j + 1
        Range("a" & j + 1).Hyperlinks.Add Anchor:=Range("a" & j + 1), Address:=files.path, TextToDisplay:=files.Name
        Range("b" & j + 1) = files.DateLastModified
        Range("C" & j + 1) = files.Size \ 1024 & "KB"
    Next
    For Each subfd In fd.SubFolders
        k = k + 1
        ReDim Preserve arr(k + 1)
        arr(k) = subfd  ’将子文件夹赋给数组
    Next
    i = i + 1
Loop
MsgBox ("一共有" & j & "个文件," & k & "个文件夹")
Application.ScreenUpdating = True
End Sub




  • 5
    点赞
  • 1
    评论
  • 11
    收藏
  • 打赏
    打赏
  • 扫一扫,分享海报

©️2022 CSDN 皮肤主题:数字20 设计师:CSDN官方博客 返回首页

打赏作者

phil1234

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值