vba 判断文件夹是否有某文件类型

Sub aaaa()
Set MyFso = CreateObject("Scripting.FileSystemObject")
Set myfile = MyFso.GetFolder("F:\").Files
For Each fn In myfile

    If fn.Type = "RAR 文件" Then
        Debug.Print fn.Name
        N = N + 1
    End If

Next
MsgBox "F盘根目录下有" & N & "个压缩包文件"
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/jv3yry7yfrv27f7jfy.html