Visual Basic 2010 O acesso ao caminho foi negado My.Computer.FileSystem.SpecialDirectories

[serginho450]

Fiz um executável que lê todos os diretórios e subdiretórios em arquivos de programas, mas sempre que encontra um diretório protegido da erro. Como pular esse erro? segue o código que estou usando:

            For Each foundFile As String In
            My.Computer.FileSystem.GetDirectories(My.Computer.FileSystem.SpecialDirectories.ProgramFiles, FileIO.SearchOption.SearchAllSubDirectories)