117553
12.05.2016
1145
4
0Pfad conste flexibel gestalten aus Textbox heraus
Hallo zusammen,
in folgendem Code würde ich gerne Pfad flexibler gestalten, das dieser aus Textboxen ausgelesen und abgeändert werden kann, wie könnte ich das am besten umsetzen?
PATH = TextBox1.Text lässt er wegen der const nicht zu
Public Class Form1
Const PATH = "C:\"
Const PATHp = "D:\"
Const PATHa = "C:\"
Private Sub comboFolder_SelectedIndexChanged(sender As Object, e As EventArgs) Handles comboFolder.SelectedIndexChanged
lbFiles.Items.Clear()
lbFiles.Items.AddRange(My.Computer.FileSystem.GetFiles(comboFolder.SelectedItem).ToArray())
End Sub
Private Sub comboFolder2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles comboFolder2.SelectedIndexChanged
lbFiles.Items.Clear()
lbFiles.Items.AddRange(My.Computer.FileSystem.GetFiles(comboFolder2.SelectedItem).ToArray())
End Sub
Private Sub comboFolder3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles comboFolder3.SelectedIndexChanged
lbFiles.Items.Clear()
lbFiles.Items.AddRange(My.Computer.FileSystem.GetFiles(comboFolder3.SelectedItem).ToArray())
End Sub
Public Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
comboFolder.Items.AddRange(My.Computer.FileSystem.GetDirectories(PATH).ToArray())
comboFolder2.Items.AddRange(My.Computer.FileSystem.GetDirectories(PATHp).ToArray())
comboFolder3.Items.AddRange(My.Computer.FileSystem.GetDirectories(PATHa).ToArray())
End Sub
Private Sub lbFiles_DoubleClick(sender As Object, e As EventArgs) Handles lbFiles.DoubleClick
If lbFiles.SelectedIndex <> -1 Then
Try
Process.Start(lbFiles.SelectedItem)
Catch ex As Exception
MsgBox("Fehler : " & ex.Message)
End Try
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Size = New System.Drawing.Size(879, 630)
' vergrößern und Textboxen anzeigen
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
' Textboxen Pfad neu initialisieren und wieder verkleinern
Me.Size = New System.Drawing.Size(879, 486)
End Sub
End Class
in folgendem Code würde ich gerne Pfad flexibler gestalten, das dieser aus Textboxen ausgelesen und abgeändert werden kann, wie könnte ich das am besten umsetzen?
PATH = TextBox1.Text lässt er wegen der const nicht zu
Public Class Form1
Const PATH = "C:\"
Const PATHp = "D:\"
Const PATHa = "C:\"
Private Sub comboFolder_SelectedIndexChanged(sender As Object, e As EventArgs) Handles comboFolder.SelectedIndexChanged
lbFiles.Items.Clear()
lbFiles.Items.AddRange(My.Computer.FileSystem.GetFiles(comboFolder.SelectedItem).ToArray())
End Sub
Private Sub comboFolder2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles comboFolder2.SelectedIndexChanged
lbFiles.Items.Clear()
lbFiles.Items.AddRange(My.Computer.FileSystem.GetFiles(comboFolder2.SelectedItem).ToArray())
End Sub
Private Sub comboFolder3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles comboFolder3.SelectedIndexChanged
lbFiles.Items.Clear()
lbFiles.Items.AddRange(My.Computer.FileSystem.GetFiles(comboFolder3.SelectedItem).ToArray())
End Sub
Public Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
comboFolder.Items.AddRange(My.Computer.FileSystem.GetDirectories(PATH).ToArray())
comboFolder2.Items.AddRange(My.Computer.FileSystem.GetDirectories(PATHp).ToArray())
comboFolder3.Items.AddRange(My.Computer.FileSystem.GetDirectories(PATHa).ToArray())
End Sub
Private Sub lbFiles_DoubleClick(sender As Object, e As EventArgs) Handles lbFiles.DoubleClick
If lbFiles.SelectedIndex <> -1 Then
Try
Process.Start(lbFiles.SelectedItem)
Catch ex As Exception
MsgBox("Fehler : " & ex.Message)
End Try
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Size = New System.Drawing.Size(879, 630)
' vergrößern und Textboxen anzeigen
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
' Textboxen Pfad neu initialisieren und wieder verkleinern
Me.Size = New System.Drawing.Size(879, 486)
End Sub
End Class
Kommentieren
Teilen
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 304362
Url: https://administrator.de/forum/pfad-conste-flexibel-gestalten-aus-textbox-heraus-304362.html
Ausgedruckt am: 17.07.2025 um 23:07 Uhr
4 Kommentare
Neuester Kommentar
Au möhr, dann mach halt aus der Konstanten eine Variable ... X)
Was verstehst du an dem Begriff "Konstante" nicht ?
Konstante = Nicht änderbar mit konstantem Wert
also nimmt man dann eine Variable
Variable = nachträglich änderbar
Dim PATH as StringKonstante = Nicht änderbar mit konstantem Wert
also nimmt man dann eine Variable
Variable = nachträglich änderbar
darauf bin ich auch schon gekommen 
danke euch, bin da leider nicht so fit drin..
Public Class Form1
Dim PATH As String
PATH = TextBox1.Text
dann bekomm ich immer den Fehler Deklaration erwartet...
sorry für die blöden Fragen aber bin erst dabei es zu lernen
danke euch, bin da leider nicht so fit drin..Public Class Form1
Dim PATH As String
PATH = TextBox1.Text
dann bekomm ich immer den Fehler Deklaration erwartet...
sorry für die blöden Fragen aber bin erst dabei es zu lernen
Tja du solltest der Variablen halt eine initialen Wert zuweisen bevor du sie nutzt, denn deine Comboboxen benutzen ja diese Variable ja in ihren Change-Events, du solltest ihr also z.B. Im Load Event der Form einen Default Wert zuweisen oder sie gleich so initialisieren
p.s. Lernen tut man mit Büchern, Dokumentationen und Tutorials aber nicht indem man solche Grundlagen in Administrator-Foren durchprügelt
Dim PATH as String = "c:\OrdnerXYZ" p.s. Lernen tut man mit Büchern, Dokumentationen und Tutorials aber nicht indem man solche Grundlagen in Administrator-Foren durchprügelt
tschuldigung...
