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