Hallo Zusammen,
ich will alle Datein von einem Bestimmten Pfad in eine Listbox schreiben.
Doch bei manchen Ordnern habe ich keine Rechte und dann bricht die Suche ab.
Vielen Dank schon einmal.
GrußJosh
ich will alle Datein von einem Bestimmten Pfad in eine Listbox schreiben.
Doch bei manchen Ordnern habe ich keine Rechte und dann bricht die Suche ab.
VB.NET-Quellcode
- Private Sub Rekursiv(ByVal oDir As IO.DirectoryInfo)
- Dim oFile As IO.FileInfo
- Try
- For Each oFile In oDir.GetFiles("*.pdf", IO.SearchOption.AllDirectories)
- With oFile
- ListBox1.Items.Add(.DirectoryName & "\" & .Name)
- 'ListBox2.Items.Add(.Name)
- End With
- Next
- Catch ex As Exception
- Select Case ex.GetType.ToString
- Case "System.UnauthorizedAccessException"
- MsgBox("Keine Rechte")
- Case Else
- MsgBox("Anderer Fehler")
- End Select
- End Try
- End Sub
Vielen Dank schon einmal.
GrußJosh