具有安全性的文件夹上的VB Excel Dir功能

Question

我有一些VB代码，该代码可以循环文件夹中的文件，并将它们的名称和大小打印到Excel工作表中。
该代码从第一行中选择文件夹名称。

如果我从Excel单击指向文件夹的链接，则可以看到文件夹中的项目。如果我指向其他文件夹，则可以正常工作，但是将其设置为特定文件夹"\\server\d$\folder1\folder2\folder3"时，它不返回任何内容。

在上面指定的文件夹中，我具有只读访问权限。这就是为什么我看不到结果吗？
有谁知道如何修改VB以显示文件？

Sub LoopThroughFiles()
    Dim MyObj As Object, MySource As Object, file As Variant, n As Long
    Dim i As Long, a As Long, filesiz As Long

    Range(Cells(2, 1), Cells(100000, 10)).Delete

    i = 1

    While (i <= 10)
        directory = Cells(1, i).Value
        If directory = "" Then
            Exit Sub
        End If

        file = Dir(directory, vbNormal)

        n = 2   
        While (file <> "")
            If InStr(file, ".sub") = 0 And InStr(file, ".blb") = 0 Then
                Add = 0
                If i > 1 Then
                    While (InStr(Cells(n + Add, 1), file)) = 0 And Cells(n + Add, 1).Value <> ""
                        Add = Add + 1
                    Wend
                End If

                While (Cells(n + Add, i).Value <> "")
                    Add = Add + 1
                Wend

                filesiz = FileLen(directory & file)
                Cells(n + Add, i).Value = file & " " & filesiz '& " " & FileDateTime(directory & file)

                n = n + 1

            End If

            file = Dir
        Wend

        i = i + 1
    Wend

End Sub