Option Explicit'定义模糊查找的变量 Dim FuzzySearchString As String'获取模糊查找的字符串 FuzzySearchString = InputBox("请输入要搜索的模糊字符串:")'定义要搜索的文件夹路径 Dim FilePath As String'获取要搜索的文件夹路径 FilePath = InputBox("请输入要搜索的文件夹路径:")'定义文件系统对象 Dim FSO As Scripting.FileSystemObject'创建文件系统对象 Set FSO = New Scripting.FileSystemObject'定义文