FileSystemObject and hidden files

[agibsonsw]

Hello. (Excel 2003)
I have a procedure which uses the FileSystemObject of the Windows Scripting Runtime to list subfolders.
It falls over with a Permission Denied error message. I assume the folder might be hidden or a system folder?
It loops with:
For Each SubFolder In OfFolder.SubFolders
How can I either ignore this subfolder or list it despite its attribute? Thanks, Andy.

[HansV]

Try using an error handler:

Code: Select all

Sub MyCode()
  ...

  On Error GoTo ErrHandler

  For Each SubFolder In OfFolder.SubFolders
    ...
    ...
ContinueHere:
  Next SubFolder

  ....
  Exit Sub

ErrHandler:
  If Err = 70 Then
    ' Permission denied
    Resume ContinueHere
  Else
    MsgBox Err.Description, vbExclamation
  End If
End Sub

[agibsonsw]

That's a solution, thank you. It's a shame I can't check the file attribute before the error is generated, but never mind. Andy.