String包含特定文本

Question

在我的代码中，我正在查找名称包含bcst的文件，但我的代码无效。我怎样才能使它发挥作用？

   For Each mySubFolder In myFolder.SubFolders    
    Application.ScreenUpdating = False
    Set ana = Workbooks.Open("C:\Users\Burak\Desktop\2MacroDegerlendirme.xlsm").Sheets("Sayfa1") 'Hangi sayfaya alınacak?   
    For Each myFile In mySubFolder.Files
    Str = myFile.Name        
        If InStr(Str, "bcst") >= 0 Then

Answer 1

仅查看代码的这一部分，我猜错了是

If InStr(Str, "bcst") >= 0 Then

InStr将第一个参数作为搜索的起点。如果找不到模式，它也返回0，所以它应该是

If InStr(1, Str, "bcst") > 0 Then。

最漂亮的替代方案是使用Like运算符：

If Str Like "*bcst*" Then