Hvordan finder man ud af - om man har adgang til et katalog vha VBA i Excel

Hvordan ser de kode ud?

Level er niveau i forhold til root

Sub recursivePathScan(root, level)

    Dim myObject
    Dim mySource
    Dim mySubFolder
    Dim depth As Integer

    With Worksheets("List Files")
        depth = level
        Set myObject = New Scripting.FileSystemObject
        Set mySource = myObject.GetFolder(root)
       
        On Error Resume Next
        For Each mySubFolder In mySource.SubFolders
            If depth < 3 Then
                Call recursivePathScan(mySubFolder, depth + 1)
            ElseIf depth = 3 Then
                If mySubFolder.Path <> "" Then
                    Cells(4 + folders, 7).Value = mySource.Path
                End If
                If Cells(4 + folders, 7).Value = Cells(3 + folders, 7).Value Then
                    '
                Else
                    folders = folders + 1
                End If
            End If
            Cells(4 + folders, 7).Select
        Next
       
    End With
   
End Sub

lukker