Imports System.IO
Public Class Form1
Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
Close()
End Sub
Private Sub ToolbarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolbarToolStripMenuItem.Click
ToolStrip1.Visible = Not ToolStrip1.Visible
ToolbarToolStripMenuItem.Checked = ToolStrip1.Visible
End Sub
Private Sub StatusleisteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StatusleisteToolStripMenuItem.Click
StatusStrip1.Visible = Not StatusStrip1.Visible
StatusleisteToolStripMenuItem.Checked = StatusStrip1.Visible
End Sub
Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
End Sub
Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs)
End Sub
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim drives = DriveInfo.GetDrives()
For Each drive As DriveInfo In drives
Dim node = TreeView1.Nodes.Add(drive.Name)
Fillnode(node, drive.RootDirectory)
Next
End Sub
Private Sub Fillnode(ByVal node As TreeNode, ByVal directory As DirectoryInfo)
Dim Directories = directory.GetDirectories()
For Each subdirectory As DirectoryInfo In Directories
node.Nodes.Add(subdirectory.Name)
Next
End Sub
End Class
das ist der komplette quellcode in dem rotmakierten bereich zeigt er mir ein fehler an das das gerät nicht bereit wär ... ich habe alles schon überprüft es passt alles oder ich sehe den wald vorlauter bäumen net