Excel VBA: Check Folder Permissions

[dhancy]

I have a VBA script that cycles through subfolders looking for a specified file.

Often, there are subfolders to which I do not have access. My script ends with a "permission denied" error.

Is there something I can add to my code that will check permissions on a folder before attempt to access it? In the code snippet below. the script errors out on the "For" line.

Dim objFolder as Object
Dim objFile as Object

Set objFolder = objFSO.GetFolder(targetFolder)
For Each objFile In objFolder.Files
...
Next

Thanks!

 

[Worf]

It is possible to ignore the error. Do you need to know where it was triggered?

Sub ImportFiles()
Dim fso As New filesystemobject, objFolder As Object, fls As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set objFolder = fso.GetFolder("c:\pub\client\")
On Error Resume Next
For Each fls In objFolder.Files
    fso.MoveFile fls.path, "c:\pub\"
Next
Set fso = Nothing
If Err.Number <> 0 Then MsgBox "An error occurred."
Err.Clear
On Error GoTo 0
End Sub

 

[dhancy]

It is possible to ignore the error. Do you need to know where it was triggered?

Sub ImportFiles()
Dim fso As New filesystemobject, objFolder As Object, fls As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set objFolder = fso.GetFolder("c:\pub\client\")
On Error Resume Next
For Each fls In objFolder.Files
    fso.MoveFile fls.path, "c:\pub\"
Next
Set fso = Nothing
If Err.Number <> 0 Then MsgBox "An error occurred."
Err.Clear
On Error GoTo 0
End Sub

I know it's being triggered at the "FOR" statement. So I envision having a check right after the "Set objFolder" line.

I'm thinking I could put something like this:

if ObjFolder.permision <> 999 then ' or whatever the property/value is for this...
...
end if

 

[Worf]

What I am saying is that it is not necessary to check permissions. Using the “On Error Resume Next” statement, the code will ignore the error and proceed to the next executable line.
Is this a suitable solution for you? You can test it by simply adding the statement on the beginning of the code.
I am also wondering if a folder or a file causes the error.