模糊搜索后如何返回完整文件名?

iamatig · 发表于 2006-3-21 19:34

模糊搜索到符合条件的第一个图片后,如何返回它的名字? 请参看我的代码,我搜索关键字"NBA*",不知道如何得到完整的文件名: Function 模糊搜索图片() Dim Mysearch As Office.FileSearch Dim MyPrompt As String Dim pic as string Pic = "NBA*" On Error Resume Next Set Mysearch = Application.FileSearch '定义一个Application.FileSearch With Mysearch .NewSearch '设置一个新搜索 .LookIn = source_Path '搜索位置 .SearchSubFolders = False '是否搜索子文件夹 .TextOrProperty = Pic '关键字:变量pic的值 .MatchTextExactly = True .FileType = msoFileTypeAllFiles '搜索目标文件类型:全部 If .Execute() <= 0 Then '开始，并搜索失败搜索图片 = 0 '搜索结果:没有 Else 搜索图片 = 1 '搜索结果:存在 End If End With End Function

hmcLjKLf.rar (5.12 KB, 下载次数: 33)

iamatig · 发表于 2006-3-21 22:02

原来使用DIR就可以了.问题解决.

		自动登录	找回密码
密码			免费注册