VBA，查找一个文件夹内，符合要求的文件数量

 

可以判断各种情况

like

=

多个条件

包含中文等等

 

Sub test_jackma1()

path1 = ThisWorkbook.Path

Dim fso As Object
Dim fd1 As Object
Dim f1 As Object

Set fso = CreateObject("scripting.filesystemobject")
Debug.Print path1

Set fd1 = fso.getfolder(path1)
For Each f1 In fd1.Files
    If f1.Name Like "*.xlsm" Then
        Debug.Print f1.Name
    End If
Next


End Sub