Ordnerstruktur als Treeview

  • VB.NET

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Ordnerstruktur als Treeview

    Ich wette es gibt schon irgend eine Funktion/klasse dazu, aber ich finde keine mit google, und die forensuche hat auch nichts erbracht.

    Ich muss die gesamte Ordner und Dateistruktur eines best. verzeichnisses auslesen.
    Das ganze soll 1. Als TreeView ausgegeben werden, und dann 2. Eine möglichkeit bieten diese zu exportieren in eine textdatei, um sie später woanders wieder in einen tree zu importieren.
    Ich bin zwar auf die Directory Klasse gestoßen, allerdings weiß ich nicht wie ich das dann als Tree element umbaue. Falls es schon ne simple funktion dafür zu finden gibt irgendwo, würde ich diese bevorzugen.


    edit: ich denke es würde schon reichen wenn mir jemans sagen kann wie ich dynamisch Knotenpunkte hinzufüge...

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Screeze“ ()

    Dynamisch kannst du so Knoten hinzufügen:

    VB.NET-Quellcode

    1. Dim NewNode as new TreeNode(AngezeigterName)
    3. 'Jetzt kannst du noch Unterpunkte hinzufügen.
    4. NewNode.Add(DeinText)
    6. 'Und jetzt noch dem TreeView hinzufügen.
    7. TreeView.Nodes.Add(NewNode)
    9. 'oder wenn du es an einer ganz bestimmten Stelle haben willst:
    10. TreeView.Nodes(NummerDesNodes)(...).Add(NewNode)


    lg

    Ok danke, damit hab ich schonmal diesen Ansatz hinbekommen:


    VB.NET-Quellcode

    1. Sub ListDirectories(ByVal Path As String)
    2. Try
    3. Dim FolderInfo As New IO.DirectoryInfo(Path)
    4. Dim Folder As IO.DirectoryInfo = Nothing
    6. For Each Folder In FolderInfo.GetDirectories()
    7. ListFolder(Folder.Name)
    8. ListDirectories(Folder.FullName)
    9. Next
    10. Catch ex As System.Exception
    12. End Try
    13. End Sub
    15. Sub ListFolder(ByVal Folder As String)
    16. Dim AddFolder As New TreeNode(Folder)
    17. frmTree.Nodes.Add(AddFolder)
    18. End Sub


    Das gibt allerdings einen Baum der art:

    -Ordner 1
    -Ordner 1.1
    -Ordner 1.2
    -Ordner 2
    -Ordner 2.1
    ect.
    (ordner 1.1 und 1.2 wären in Ordner 1)

    Wie mach ich das am geschicktesten, dass die Ordner als child element der entsprechenden Ordner angezeigt werden. Das ganze hat unbekannt viele Ebenen, also muss es eine komplett dynamische lösung sein.
    [also so sollte es sein:
    -ordner 1
    .....Ordner 1.1
    .....Ordner 1.2
    -Ordner 2
    .....Ordner 2.1
    ect.]
    Ich steh grad aufm schlauch... Hat jemand ne Idee dazu?

    hmm Danke, normalerweiße mach ich das auch, habs auch schon versucht bei mehreren seiten, aber Ich beschäftige mich erst 2 Tage mit vb, und da schaff ichs noch nicht komplett ohne erklärung... Ich versuchs weiter, aber wenn einer vill. kurz zeit für ne erklärung hättw wär super


    edit:

    also ich hab das jetzt mal so abgewandelt:

    VB.NET-Quellcode

    1. Public Sub ShowTree(ByVal Path As String)
    2. Dim nNode As New TreeNode(Path)
    3. frmTree.Nodes.Add(nNode)
    4. Me.FillTreeNode(nNode)
    5. End Sub
    7. Private Sub FillTreeNode(ByVal dNode As TreeNode)
    8. Try
    9. Dim d As New DirectoryInfo(dNode.FullPath)
    10. For Each di As DirectoryInfo In d.GetDirectories
    11. Dim nNode As New TreeNode(di.Name)
    12. dNode.Nodes.Add(nNode)
    13. nNode.Nodes.Add("")
    14. Next
    15. Catch : End Try
    16. End Sub


    Das sammelt jetzt schonmal die Verzeichnisse alle richtig, aber leider noch keine unterverzeichnisse, es wird nur ein leerer unterknoten ausgegeben...

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Screeze“ ()

    Wollte mich nicht extra registrieren.

    Aber ich habs grade hinbekommen, es hat nur eine einzige zeile gefehlt:


    VB.NET-Quellcode

    1. Public Sub ShowTree(ByVal Path As String)
    2. Dim nNode As New TreeNode(Path)
    3. frmTree.Nodes.Add(nNode)
    4. Me.FillTreeNode(nNode)
    5. End Sub
    7. Private Sub FillTreeNode(ByVal dNode As TreeNode)
    8. Try
    9. Dim d As New DirectoryInfo(dNode.FullPath)
    10. For Each di As DirectoryInfo In d.GetDirectories
    11. Dim nNode As New TreeNode(di.Name)
    13. dNode.Nodes.Add(nNode)
    14. FillTreeNode(nNode)
    15. Next
    16. Catch : End Try
    17. End Sub


    Jetzt wird schonmal die ordnerstruktur richtig ausgewertet. Jetzt muss ich nurnoch die dateien dazu hinbekommen.
    Danke schonmal

    Falls noch jemand das gleiche vorhaben hat, Ich hab mir das jetzt so gebastelt, es werden alle Ordner (unterordner ect.) in einen baum geladen und sämtliche dateien ebenfalls. Funktioniert bisher gut, nur bei Zugriffsfehlern muss ich noch etwas basteln.

    VB.NET-Quellcode

    1. Public Sub ShowTree(ByVal Path As String)
    2. Dim nNode As New TreeNode(Path)
    3. frmTree.Nodes.Add(nNode)
    4. Me.FillTreeNode(nNode)
    5. End Sub
    7. Private Sub FillTreeNode(ByVal dNode As TreeNode)
    8. Try
    9. Dim d As New DirectoryInfo(dNode.FullPath)
    10. For Each di As DirectoryInfo In d.GetDirectories
    11. Dim nNode As New TreeNode(di.Name)
    12. dNode.Nodes.Add(nNode)
    13. FillTreeNode(nNode)
    14. Next
    15. For Each fi As FileInfo In d.GetFiles
    16. Dim fNode As New TreeNode(fi.Name)
    17. dNode.Nodes.Add(fNode)
    18. Next
    19. Catch : End Try
    20. End Sub

    Ordnerberechtigung auslesen und säubern

    Hallo,

    Habe das selbe gebraucht und ein bisschen Angepasst.
    Nun will ich noch die Ordnerberechtigungen anzeigen lassen, ich will die "Geerbten" und die "Expliziten" auslesen, jedoch habe ich dann das Problem, dass ich doppelte Einträge habe.
    Wie kann ich die Liste dann "Mergen"? besser direkt bei der Prüfung zBsp. ein * als Markierung hinzufügen, jedoch müsste ich den vorherigen selben Eintrag rauslöschen..Deshalb lieber direkt eine passende Methode.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports System.Security.AccessControl
    3. Imports System.Security.Principal
    5. Public Class Form1
    6. Dim c As Integer = 0
    8. Private Sub FillTreeNode(ByVal dNode As TreeNode) 'dNode = Pfad zBsp: C:\Temp\
    9. Dim d As New DirectoryInfo(dNode.FullPath)
    10. For Each di As DirectoryInfo In d.GetDirectories
    11. Dim lstAcc As New List(Of String)
    12. On Error Resume Next
    13. Dim DirSecurity As DirectorySecurity = Directory.GetAccessControl(di.FullName)
    14. For Each ACL As FileSystemAccessRule In DirSecurity.GetAccessRules(True, True, GetType(NTAccount))
    15. Dim Str As String = ACL.IdentityReference.Value
    16. 'If ACL.IsInherited = True.. Wie weiter?
    17. lstAcc.Add(Str.Substring(" " & Str.LastIndexOf("\") + 1))
    18. Next
    19. Dim strAcc As String = String.Join(",", lstAcc)
    20. Dim nNode As New TreeNode(di.Name & strAcc)
    21. dNode.Nodes.Add(nNode)
    22. FillTreeNode(nNode)
    23. lstAcc.Clear()
    24. Next
    25. End Sub
    27. Public Sub ShowTree(ByVal Path As String)
    28. Dim nNode As New TreeNode(Path)
    29. frmTree.Nodes.Add(nNode)
    30. Me.FillTreeNode(nNode)
    31. End Sub
    33. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    34. Dim FolderBrowserDialog1 As New FolderBrowserDialog
    35. With FolderBrowserDialog1
    36. .Description = "Select the directory"
    37. If .ShowDialog = DialogResult.OK Then
    38. ShowTree(.SelectedPath)
    39. End If
    40. End With
    41. 'ShowTree("C:\Temp\")
    42. frmTree.ExpandAll()
    43. End Sub
    44. End Class

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „syntax“ ()

Facebook
Telefonspende