VBA统计当前路径下文件夹数量

yjwdjfqb

VBA统计当前路径下文件夹数量老师们好，有没有最简短的代码，统计当前路径下文件夹的数量，谢谢老师们了！
Word中VBA统计当前路径下文件夹数量.rar (16.94 KB, 下载次数: 5)

2022-4-17 11:52 上传

点击文件名下载附件

limonet

Sub FolderCount()
    With CreateObject("Scripting.FileSystemObject").GetFolder(ThisDocument.Path)
        For Each Fd In .subfolders
            i = i + 1
        Next Fd
    End With
    MsgBox "文件夹数量：" & i
End Sub

山菊花

Dim FSO, ff
Set FSO = CreateObject("scripting.filesystemobject")
Set ff = FSO.getfolder(ActiveDocument.Path)
Debug.Print ff.subfolders.Count

yjwdjfqb

山菊花 发表于 2022-4-17 15:46
Dim FSO, ff
Set FSO = CreateObject("scripting.filesystemobject")
Set ff = FSO.getfolder(ActiveDocu ...

谢谢你了老师！

kaixinook

Sub FolderCount()
    With CreateObject("Scripting.FileSystemObject").GetFolder(ThisDocument.Path)
        For Each Fd In .subfolders
            i = i + 1
        Next Fd
    End With
    MsgBox "文件夹数量：" & i
End Sub