Ordner durchsuchen und Datein in Listbox auflisten

Manny89 · 15. Juni 2012, 22:22

Schön guten Abend.
Ich habe mal wieder eine Anfängerfrage.

Hier erst mal mein Code:

VB.NET-Quellcode

Imports System.IO
Public Class Form1
Dim pfad As String
Private Sub btn_suchen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_suchen.Click
Me.FolderBrowserDialog1.ShowDialog()
pfad = Me.FolderBrowserDialog1.SelectedPath
If Not pfad.EndsWith("\") Then
pfad &= "\"
End If
lbl_pfad.Text = pfad
End Sub
Private Sub btn_durchsuchen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_durchsuchen.Click
End Sub
Private Sub txt_suchbegriff_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles txt_suchbegriff.MouseClick
txt_suchbegriff.Text = ""
End Sub
End Class

Ich möchte den Ordner dessen Pfads im Label steht durchsuchen und in gefudenen Datei in der Listbox auflisten lassen.
Danach möchte ich die Datei suchen, dessen Namen in der Textbox Suchbegriff eingeben steht.
Hab schon 2 Tage selber rum probiert, doch bin leider nicht weiter gekommen.
Danke schon mal für eure Hilfe.
MfG Manny

SystemUnknow · 15. Juni 2012, 22:28

[VB 2008] Ordner und dateien in einer Listbox auflisten..
[VB 2010] Treeview - Inhalt eines Ordners anzeigen (Textdateien) und die daten auslesen
[VB 2010] Listview / Dateien in einem Verzeichnis auflisten
[VB 2010] Nur Dateinamen auflisten
[VB 2010] Alle Dateien und Ordner des gesammten PCs auflisten
[VB 2010] txt Datei in listbox anzeigen und in richtextbox auslesen
weitere ergebnisse in sufu...

Manny89 · 15. Juni 2012, 22:41

Die suche habe ich ja total vergessen sry

der_Kurt · 15. Juni 2012, 22:59

Copy & Paste-Beispiel zum Herumspielen (natürlich erst nach der Suche

Gegeben sind zwei Listboxen, zwei Textboxen, ein Button

der Rest spricht für sich selbst

VB.NET-Quellcode

Imports System.IO
Public Class Form1
Public Property suche As IEnumerable(Of String)
Public Property suche_nach_suchwort As IEnumerable(Of String)
Private _path As String
Public Property path As String
Get
Return _path
End Get
Set(value As String)
If value <> _path Then
'Wenn ein neuer Pfad angegeben wurde:
'#########
'Wert merken
_path = value
'Wert anzeigen
TextBox1.Text = value
'"normale Dateiauswahl festlegen"
suche = IO.Directory.GetFiles(value)
'Dateiauswahl mit Suchwort festlegen
suche_nach_suchwort = From datei In IO.Directory.GetFiles(value)
Where datei.Trim.ToLower.Contains(TextBox2.Text.Trim.ToLower)
'Das UI erneuern
RefreshUI()
End If
End Set
End Property
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
'Textbox deaktivieren, dient nur zur PfadANZEIGE
TextBox1.Enabled = False
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
'Dialog anzeigen. Nur wenn ein Pfad ausgewählt wurde, ändert sich die path-Property
Dim fb As New FolderBrowserDialog
fb.ShowDialog()
If fb.SelectedPath <> String.Empty Then path = fb.SelectedPath
End Sub
Sub RefreshUI()
ListBox1.DataSource = suche.ToList
ListBox2.DataSource = suche_nach_suchwort.ToList
End Sub
Private Sub TextBox2_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox2.TextChanged
'Wenn ein neues Suchwort angegeben wurde:
RefreshUI()
End Sub
End Class

Manny89 · 16. Juni 2012, 01:43

Danke für deine Hilfe Kurt. Doch leider verstehe ich nur sehr wenig von dein Code.
Ich habe mein Code fast fertig.
Muss jetzt nur noch rausfinden, wie ich das mit der Suche hinn bekomme.

Monte · 16. Juni 2012, 02:01

Dann solltest du dich vielleicht nochmal mit den Grundlagen beschäftigen.

Ansonsten die ungeklärten Begriffe bei msdn nachschlagen.

Manny89 · 16. Juni 2012, 02:09

Ich denke mir mal das man das mit einer For Each schleife machen kann. Weiß aber noch nicht wie genau

Monte · 16. Juni 2012, 02:15

@der_Kurt
hat dir doch schon ein komplettes Code-Beispiel gepostet?

Manny89 · 16. Juni 2012, 02:17

Stimmt schon ich will den code aber nicht einfach kopieren ich will ich schon selber verstehen

Monte · 16. Juni 2012, 02:20

Ich brech das für mich jetzt erstmal hier ab, weil du keine eigeninitiative zeigen willst und verweise dich nochmal auf: #6

Manny89 · 16. Juni 2012, 02:23

Ich probiere das schon seid Tagen und werde das auch hin bekommen ich frage nur wenn ich wirklich nicht mehr weiter komme

Ordner durchsuchen und Datein in Listbox auflisten

Ordner durchsuchen und Datein in Listbox auflisten

VB.NET-Quellcode

Dateien aufliesten

VB.NET-Quellcode

Tags

Ähnliche Themen

1 Benutzer hat hier geschrieben