搜索目录中的文件

Question

我想在用户定义的目录中搜索文件。我的文件结构就像那个xxx__description__myFileName__YYMMDD.txt那样是这个文件的多个版本所以我想列出目录中包含myFileName文件名的所有文件。此外，我不知道这是列出具有此类代码的文件的有效方式。

我尝试使用此代码，但它给了我一个错误：

  

运行时错误＆＃39;＆＃39;：对象不支持此操作

Sub findFiles()
   Dim i As Integer
   Dim myFile As String

   myFileName = "ABC123"

   With Application.FileSearch
      .NewSearch
      .LookIn = "C:\myTestDirectory"
      .fileName = "*myFileName*.xlsx"
      .SearchSubFolders = True
      If .Execute() > 0 Then
         For i = 1 To .FoundFiles.Count
            Debug.Print .FoundFiles(i)
         Next i
      End If
   End With
End Sub