[VB2008]eccezione in ricerca file

[rs9000]

uff non pensavo fosse così complicato cercare un file!!! VVoVe:
cmq qst è il massimo ke sono riuscito a fare :

   Public Sub Search(ByVal Dir As String)
      
        Dim Dirs() As String = IO.Directory.GetDirectories("C:\")
      
        Dim Files() As String = IO.Directory.GetFiles("C:\")

   For Each S As String In Dirs
            MsgBox(S)
            Application.DoEvents()
        Next
      
  For Each S As String In Dirs
            Search(S)
        Next
    End Sub

così ottengo tutte le directory e sotto directory di "C:\" , ma ora??? ....rimane sempre il problema di escludere la cartella "system volume information" ...a me servirebbe un codice ke ora cancella dalle directory ke ho trovato questa che mi da l'errore..........................