Hvordan finder man ud af - om man har adgang til et katalog vha VBA i Excel
Jeg prøver at lave en kode der gennemgår alle kataloger for eks. billeder, men støder ind i at der er nogle kataloger, hvor jeg ikke har adgang.Hvordan finder jeg ud af om kataloget er spærret eller ej for mig?
Koden:
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
Hilsen
Torben