Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Suche mit mehreren Wörtern aus Textbox
Autor: Knetschi
Datum: 12.11.08 14:27
Dim dInitPath As DirectoryInfo Dim lSearchpattern As List(Of String) Dim lFiles As List(Of FileInfo) lSearchpattern = New List(Of String) lSearchpattern.Add("*" & TextBox1.Text & "*") dInitPath = New DirectoryInfo(path) lFiles = searchFiles(dInitPath, lSearchpattern) ListBox1.Items.Clear() ListBox2.Items.Clear() For Each fiFile As FileInfo In lFiles ListBox1.Items.Add(fiFile.Name) ListBox2.Items.Add(fiFile.FullName) Next Private Function searchFiles(ByVal dPath As DirectoryInfo, ByVal _ lSearchpattern As List(Of String)) As List(Of FileInfo) Dim lFiles As List(Of FileInfo) = New List(Of FileInfo) For Each sPattern As String In lSearchpattern For Each fiFile As FileInfo In dPath.GetFiles(sPattern, _ SearchOption.AllDirectories) lFiles.Add(fiFile) Next Next Return lFiles End Function

Suche mit mehreren Wörtern aus Textbox	1.334	Knetschi	12.11.08 10:15
Re: Suche mit mehreren Wörtern aus Textbox	920	Dieter	12.11.08 10:22
Re: Suche mit mehreren Wörtern aus Textbox	977	DaveS	12.11.08 10:32
Re: Suche mit mehreren Wörtern aus Textbox	885	bauer	12.11.08 11:29
Re: Suche mit mehreren Wörtern aus Textbox	1.001	DaveS	12.11.08 11:40
Re: Suche mit mehreren Wörtern aus Textbox	850	bauer	12.11.08 11:42
Re: Suche mit mehreren Wörtern aus Textbox	1.222	Knetschi	12.11.08 13:08
Re: Suche mit mehreren Wörtern aus Textbox	898	bauer	12.11.08 13:37
Re: Suche mit mehreren Wörtern aus Textbox	988	Knetschi	12.11.08 14:00
Re: Suche mit mehreren Wörtern aus Textbox	1.033	bauer	12.11.08 14:23
Re: Suche mit mehreren Wörtern aus Textbox	842	Knetschi	12.11.08 14:27

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen