Wsrtjtyk

I've got some VB code which loops files in folders and prints their name and size into an excel sheet.

The code picks up the folder name from the top row.

If I click on the link to the folder from Excel, I can see the items in the folder. If I point to a different folder, it works fine, however when set to a specific folder "\serverd$folder1folder2folder3", it returns nothing.

In the folder specified above, I have read only access. Is this why I can't see the results?

Does anyone know how to amend the VB to show the files?

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