Ergebnis 1 bis 2 von 2
  1. #1
    Fortgeschrittener
    Registriert seit
    25.07.2009
    Beiträge
    41

    Standard gerät nicht bereit win 7

    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

  2. #2
    dopebisindiehaarspitzen Avatar von Gamok
    Registriert seit
    25.08.2008
    Beiträge
    1.073

    Standard

    Um was fuer ein Geraet handelt es sich eigentlich?

    Und du liegst am Boden, jammerst, 'Boss, das ist nicht fair von dir'.
    Während dir die AK Herz und Nieren perforiert.





Stichworte

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •