可以判断各种情况
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