VB学习8_VBA如何模糊判断包含某关键字的文件是否存在？

需求：判断一个已知名称的文件是否存在，我只知道它的详细路径，但只知道这个文件名称中包含“93阅兵”4字，请问如何判断这样的文件是否存在呢？
假如它保存的路径是：e:\93\ 

1. Sub ft()
   
2.     If Len(Dir("e:\93\*93阅兵*.txt")) Then MsgBox "文件存在" Else MsgBox "文件不在"
   
3. End Sub

参考：http://www.exceltip.net/thread-75430-1-1.html