4

以下是在文件夹中搜索“需求”之类的文件夹的过程。当开始逐步执​​行时,我收到一条错误消息,因为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
4

1 回答 1

12

您正在尝试使用FileSystemObject(早期绑定)而不在项目引用中指定对它的引用。

您需要添加Microsoft Scripting Runtime参考,如下面的屏幕截图所示:

在此处输入图像描述

于 2017-08-28T15:16:56.003 回答