Fehler beim Löschen von Verzeichnissen mit Inhalt

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Fehler beim Löschen von Verzeichnissen mit Inhalt

    Habe aus der VB-Dokumentation gelernt, dass man Verzeichnisse mit Inhalt mit dem Befehl

    System.IO.Directory.Delete(Name des Verzeichnisses, True)

    löschen kann.

    Bei mir gibt es immer eine Fehlermeldung.
    Beispiel:
    Habe ein Verzeichnis I:\sync\sa0828\documents\Fax\ mit Unterverzeichnissen drafts\ und inbox\. Alle Verzeichnisse sind übrigens leer.

    Der Befehl

    System.IO.Directory.Delete("I:\sync\sa0828\documents\Fax\", True)

    führt aber immer zu der Meldung

    Ein Ausnahmefehler des Typs "System.IO.IOException" ist in mscorlib.dll aufgetreten. Zusätzliche Informationen: Der Zugriff auf den Pfad "I:\sync\sa0828\documents\Fax\Drafts" wurde verweigert.

    Kann mir jemand sagen, was ich falsch mache?

    Klarer geht die Fehlermeldung doch nicht. Dir bzw. deinem Programm fehlen die Berechtigungen um dieses Verzeichnis zu löschen.
    "Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."

    Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
    Wie man VisualStudio nutzt? => VisualStudio richtig nutzen

    @artnat Es gibt einige Windows-Ordner, die für dich gesperrt sind. Beim Durchsuchen tritt dasselbe Problem auf. Hier ein Beispiel-Sourcecode, welcher alle Ordner nach mp4-Dateien durchsucht und deren Pfade in eine ListBox schreibt. Hierbei werden gesperrte Ordner ausgelassen. Du kannst ja mal schauen, wie oft er in Zeile 38 (Continue For) hereinläuft.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public NotInheritable Class FormMain
    2. Private Deu As New System.Globalization.CultureInfo("de-DE")
    3. Private Sub FormMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    5. End Sub
    7. Private Sub ButtonStart_Click(sender As Object, e As EventArgs) Handles ButtonStart.Click
    8. Dim DI As IO.DirectoryInfo
    10. DI = My.Computer.FileSystem.GetDirectoryInfo(Environment.GetFolderPath(Environment.SpecialFolder.UserProfile))
    11. ScanDirectory(DI)
    13. DI = My.Computer.FileSystem.GetDirectoryInfo(Environment.GetFolderPath(Environment.SpecialFolder.MyPictures))
    14. ScanDirectory(DI)
    16. DI = My.Computer.FileSystem.GetDirectoryInfo(Environment.GetFolderPath(Environment.SpecialFolder.Desktop))
    17. ScanDirectory(DI)
    19. DI = My.Computer.FileSystem.GetDirectoryInfo(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments))
    20. ScanDirectory(DI)
    22. DI = My.Computer.FileSystem.GetDirectoryInfo(Environment.GetFolderPath(Environment.SpecialFolder.MyVideos))
    23. ScanDirectory(DI)
    25. DI = My.Computer.FileSystem.GetDirectoryInfo(Environment.GetFolderPath(Environment.SpecialFolder.MyMusic))
    26. ScanDirectory(DI)
    27. End Sub
    29. Private Sub ScanDirectory(ByVal _RootDirectory As IO.DirectoryInfo)
    30. Dim allowed_Extensions As New List(Of String) From {".mp4"}
    32. 'Hidden | ReparsePoint | NotContentIndexed | System | Directory = 9238
    33. 'Dies ist genau das Gesamtattribut bei Ordnern, bei denen eine Exception geworfen wird.
    34. Dim _9238 As Integer = IO.FileAttributes.Hidden Or IO.FileAttributes.ReparsePoint Or IO.FileAttributes.NotContentIndexed Or IO.FileAttributes.System Or IO.FileAttributes.Directory
    36. For Each _Directory As IO.DirectoryInfo In _RootDirectory.EnumerateDirectories 'für jeden Unterordner...
    37. If _Directory.Attributes() = _9238 Then 'gesperrte Windows-Ordner auslassen. Diese Abfrage hat den Vorteil, dass nicht mit Try Catch gearbeitet werden muss.
    38. Continue For
    39. End If
    40. For Each File As IO.FileInfo In _Directory.GetFiles
    41. Try
    42. If allowed_Extensions.Contains(File.Extension.ToLower(Deu)) Then
    43. ListBox1.Items.Add(_RootDirectory.ToString & "\" + _Directory.ToString & "\" + File.ToString)
    44. Else
    45. Exit For
    46. End If
    47. Catch ex As UnauthorizedAccessException
    48. ScanDirectory(_Directory)
    49. End Try
    50. Next
    51. Next
    52. End Sub
    53. End Class

    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!