为什么找不到工程或库呢？

韦冬艺

为什么找不到工程或库呢？ 编了一个遍历文件的代码调用。运行之后，弹出提示，找不到工程或库

Sub test()

Dim arr

arr = DirFiles(ThisWorkbook.Path)

End Sub


Function DirFiles(ByVal mypath, Optional ByVal fileStr = "*.*")
'返回一个数组2列 '1 列 -纯文件名+后缀 '2 列 -完整路径
'3 列  纯文件名
'4列  纯后缀
'本函数默认不搜索 隐藏文件
    If mypath Like "*\" Then '总是把传进来的路径处理成不带斜杠的数据
        mypath = Left(mypath, Len(mypath) - 1) '去掉最后的分隔符
    End If
    Dim dic
    Set dic = CreateObject("scripting.dictionary")
    Dim fname, k
    fname = Dir(mypath & "\" & fileStr)
    k = 0
    Do While fname <> "" '不为空的时候 往下循环
        k = k + 1
        If fname Like fileStr Then '实现模糊搜索文件
        '这里可以自己定义搜索条件 暂时用like方法一般就是 *匹配模糊搜索
             dic(k) = fname '写入第一个文件
        End If
        fname = Dir
    Loop
    Dim brr
    If dic.Count = 0 Then
        ReDim brr(0, 0)
    Else
        ReDim brr(1 To dic.Count, 1 To 4) '1列纯文件名 2列完整文件名
        For i = 1 To dic.Count
            brr(i, 1) = dic(i) '纯文件名
            brr(i, 2) = mypath & "\" & brr(i, 1)  '完整路径+文件名
            brr(i, 3) = Left(brr(i, 1), InStrRev(brr(i, 1), ".") - 1) '纯文件名
            brr(i, 4) = Mid(brr(i, 1), InStrRev(brr(i, 1), ".") + 1) '路径
        Next
    End If
    DirFiles = brr
     '返回结果字典
End Function