如何解决用户定义类型未定义的错误？

Question

以下是在文件夹中搜索“requirements”等文件夹的过程。当开始逐步通过时，我收到一条错误消息，因为FileSystemObject：

用户定义类型未定义

我错过了什么？

Sub GetSubFolders()

Dim f As Folder, sf As Folder, myFile As File
Dim fso As New FileSystemObject                   ' <=========== ERROR HERE

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参考，如下面的屏幕截图所示：