Ошибка в функции - Visual Basic .NET

Формулировка задачи:

Здравствуйте. Я сегодня сделал функцию, которая получает весь список файлов и папок на диске "C:", после записывает в 1 файл. Так вот, я сделал функцию, проверяю на одном диске - работает отлично. Проверяю на диске "C:", как сразу же возникает ошибка, если функция пытается получить список файлов и папок там, где прав на это действие нету. К таким местам относятся папки "System volume information" и "$RECYCLE.BIN". Так вот, можно сделать так, что бы функция не лезла туда, куда не может? Ну, или просто игнорировать ошибку, после продолжать открывать другие папки? Код:

Function sfaf(Folder As String, mask As String) ' sfaf - Search Files And Folders
        Dim files As String()
        Dim dir() As String = Directory.GetDirectories(Folder, mask, SearchOption.TopDirectoryOnly)
        File.AppendAllLines("N:\Testfolder\testfile", dir)
        For Each poddirs In dir
            Me.sfaf(poddirs, mask)
            files = Directory.GetFiles(poddirs, mask, SearchOption.TopDirectoryOnly)
            File.AppendAllLines("N:\Testfolder\filetest_2", files)
            File.AppendAllText("N:\Testfolder\testfile", poddirs & vbNewLine)
        Next
    End Function

P.S. С наступающим)

Решение задачи: «Ошибка в функции»

textual
                            Листинг программы 
                        

                            Function sfaf(Folder As String, mask As String) ' sfaf - Search Files And Folders
    Dim files As String()
    Dim dir() As String = Directory.GetDirectories(Folder, mask, SearchOption.TopDirectoryOnly)
    File.AppendAllLines("N:\Testfolder\testfile", dir)
    For Each poddirs In dir
        Me.sfaf(poddirs, mask)
        Try
            files = Directory.GetFiles(poddirs, mask, SearchOption.TopDirectoryOnly)
        Catch ex as UnauthorizedAccessException
            Continue For
        End Try
        File.AppendAllLines("N:\Testfolder\filetest_2", files)
        File.AppendAllText("N:\Testfolder\testfile", poddirs & vbNewLine)
    Next
End Function
                        