Какой пользовательский тип не определен?

Question

Ниже приведена процедура поиска папки для папки типа "требования". Когда я начинаю шаг за шагом, я получаю сообщение об ошибке "Пользовательский тип не определен".

Что мне не хватает?

Sub GetSubFolders()

Dim fso As New FileSystemObject, f As Folder, sf As Folder, myFile As File
Set f = fso.GetFolder("C:\Users\C58227\Desktop\Projects\CRDs")

For Each sf In f.SubFolders
    For Each mySubFolder In myFolder.SubFolders
        For Each myFile In mySubFolder.Files
            If myFile.Name Like "Requirements" Then
                MsgBox myFile.Name
                Exit For
            End If
        Next

        MsgBox "Else"
    Next
Next

End Sub

Answer 1

Вы пытаетесь использовать FileSystemObject (раннее связывание) без указания ссылки на него в разделе "Ссылки на проект".

Вам нужно добавить Microsoft Scripting Runtime ссылка, как можно увидеть на скриншоте ниже: