[3.5] Schnelle Art alle Dateien und alle Drives aufzulisten?

  • VB.NET

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

    [3.5] Schnelle Art alle Dateien und alle Drives aufzulisten?

    Hey Paradisianer,

    ich habe vor einer gefühlten Ewigkeit einen "Mini-Explorer" geschrieben, der braucht aber eine Ewigkeit alles dateien und Drives aufzulisten, jetzt meine Frage gibt es eine Schnelle art alle dateien aufzulisten wie es andere Programme auch machen?

    danke euch

    LG Fabi

    können wir nur raten, da wir nicht wissen, wie du das gemacht hast...ich würde einfach zuerst auf oberster ebene auslesen oder maximal zwei ebenen, alles darunter wird erst geladen, wenn es auch benötigt wird...
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    danke jvbsl darauf hätte ich selbst kommen könne ...

    hier ma der code den ich noch habe:

    VB.NET-Quellcode

    1. Imports System.IO
    2. Public Class Form1
    5. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    6. Dim drives = DriveInfo.GetDrives()
    7. For Each drive As DriveInfo In drives
    8. Dim node = TreeView1.Nodes.Add(drive.Name)
    9. node.Tag = drive.RootDirectory
    10. node.ImageKey = "drive"
    11. FillNode(node, drive.RootDirectory)
    12. Next
    13. Me.Visible = True
    14. End Sub
    16. Private Sub FillNode(ByVal node As TreeNode, ByVal directory As DirectoryInfo)
    17. Try
    18. Dim directories = directory.GetDirectories()
    19. For Each subdirectory As DirectoryInfo In directories
    20. Dim subnode = node.Nodes.Add(subdirectory.Name)
    21. subnode.Tag = subdirectory
    22. subnode.ImageKey = "folder"
    23. FillNode(subnode, subdirectory)
    24. Next Catch ex As Exception
    25. End Try
    26. End Sub
    28. Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
    29. Try
    30. Dim directory As DirectoryInfo
    31. directory = TreeView1.SelectedNode.Tag
    32. Dim files = directory.GetFiles()
    33. ListView1.Items.Clear()
    34. UpdateControls(sender, e)
    35. For Each file As FileInfo In files
    36. Dim item = ListView1.Items.Add(file.Name)
    37. item.ImageKey = "file"
    38. Next Catch exe As Exception
    39. End Try
    40. End Sub
    41. End Class



    Danke euch

    LG Fabi

    Ich habe deinen Code ein wenig modifiziert ...

    VB.NET-Quellcode

    1. Imports System.IO
    2. Public Class Form1
    4. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    5. Dim drives = DriveInfo.GetDrives()
    6. For Each drive As DriveInfo In drives
    7. If drive.IsReady Then
    8. Dim node = TreeView1.Nodes.Add(drive.Name)
    9. node.Tag = drive.RootDirectory
    10. node.ImageKey = "drive"
    11. FillNode(node, drive.RootDirectory)
    12. End If
    13. Next
    14. Me.Visible = True
    15. End Sub
    17. Private Sub FillNode(ByVal node As TreeNode, ByVal directory As DirectoryInfo)
    18. Try
    19. Dim directories = directory.GetDirectories()
    20. For Each subdirectory As DirectoryInfo In directories
    21. Dim subnode = node.Nodes.Add(subdirectory.Name)
    22. subnode.Tag = subdirectory
    23. subnode.ImageKey = "folder"
    24. ' FillNode(subnode, subdirectory) <--- Killer
    25. Next
    26. Catch ex As Exception
    27. Debug.WriteLine(ex.Message)
    28. End Try
    29. End Sub
    31. Private Sub TreeView1_AfterExpand(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterExpand
    32. Try
    33. For Each n As TreeNode In e.Node.Nodes
    34. FillNode(n, CType(n.Tag, DirectoryInfo))
    35. Next
    36. Catch ex As Exception
    37. Debug.WriteLine(ex.Message)
    38. End Try
    39. End Sub
    41. Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
    42. Try
    43. Dim directory As DirectoryInfo
    44. directory = CType(TreeView1.SelectedNode.Tag, DirectoryInfo)
    45. Dim files = directory.GetFiles()
    46. ListView1.Items.Clear()
    47. ' UpdateControls(sender, e)
    48. For Each file As FileInfo In files
    49. Dim item = ListView1.Items.Add(file.Name)
    50. item.ImageKey = "file"
    51. Next
    52. Catch exe As Exception
    53. Debug.WriteLine(exe.Message)
    54. End Try
    55. End Sub
    57. End Class