Private Sub Button3_Click(sender As Object, e As EventArgs) Handles _
  Button3.Click
        Dim oDir As IO.DirectoryInfo
        For Each drive As IO.DriveInfo In IO.DriveInfo.GetDrives
            oDir = New IO.DirectoryInfo(drive.Name)
            Rekursiv(oDir)
        Next
    End Sub
    Private Sub Rekursiv(ByVal oDir As IO.DirectoryInfo)
        Dim oSubDir As IO.DirectoryInfo
        Dim oFile As IO.FileInfo
        For Each oFile In oDir.GetFiles()
            'MsgBox(oDir.Name)
            With oFile
                If Mid(oFile.Name, 1, 1) = "$" Then
                    MsgBox("uli")
                End If
                ListBox8.Items.Add(oDir.Name & "\" & oFile.Name & vbTab)
            End With
        Next
        For Each oSubDir In oDir.GetDirectories()
            Rekursiv(oSubDir)
        Next
    End Sub
:Fehler Meldung
System.UnauthorizedAccessException: "Der Zugriff auf den Pfad" & _
  ""C:\$Recycle.Bin\S-1-5-18" wurde verweigert."