Word中的宏代码(21)：按文件名查找文件

软件世界

大峰 · 2004年5月31日

　　目的要求：当一个文件夹中包含多个文件时，要找到某个文件可能不太方便。如果你记得文件名中某个字符，运行下面的宏就行了。

　　宏代码

　　Sub ztwj()

　　Set cxf = Application.FileSearch

　　With cxf

　　Dim wjj, wjmc

　　wjj = InputBox("请输入文件所在的文件夹路径及名称", "查找文件")

　　wjmc = InputBox("请输入需要查找文件名的字符", "查找文件")

　　.LookIn = wjj

　　.FileName = "*" + wjmc + "*.*"

　　If .Execute > 0 Then

　　MsgBox "共找到" & .FoundFiles.Count & "个符合条件的文件", 0, "查找结果"

　　For i = 1 To .FoundFiles.Count

　　MsgBox .FoundFiles(i), 0, "依次是："

　　Next i

　　Else

　　MsgBox "没有符合条件的文件。"

　　End If

　　End With

　　End Sub

　　说明：①代码中的变量“cxf”和“wjmc”，可以修改为其他字符。②宏运行时，会弹出相应的对话框，提示输入“所要查找文件所在文件夹的路径、名称”，以及“需要查找文件名中的部分字符”。③查询结束后，会弹出查询结果消息框，如果查询到符合条件的文件，随后会以消息框的形式一一列出完整的文件名。