Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Wie kann ich nach groß und klein suchen mit diesem Code
Autor: alert
Datum: 20.08.02 21:35
Bei File1.Pattern = ComboEndung.Text sind in einer Liste diverse Dateiendungen nach denen gesucht werden soll, also auch *.*, was allerdings wenn das Laufwerk zu viele Dateien enthält also mehr als die Listbox fassen kann, dann gibt es logischerweise einen Fehler und der Rest wird nicht eingelesen, auch wenn ich den Fehler abfange. Also möchte ich wenn es mehr als 32.000 Einträge sind eine zweite oder auch dritte Liste einsetzen die mir dann auch jeweils nach erreichen der Aufnahmegrenze die Dateien weiter auflistet. Hier der Code: Private Sub Auflisten() Dim t& Dim cnt& List1.Clear List2.Clear On Error Resume Next Dir1.Path = Left$(Drive1.Drive, 2) + "\" Dir1.Refresh File1.Path = Dir1.Path File1.Pattern = ComboEndung.Text File1.Refresh For t& = 0 To File1.ListCount - 1 If Right$(Dir1.Path, 1) <> "\" Then List2.AddItem Dir1.Path + "\" + File1.List(t&) Else List2.AddItem Dir1.Path + File1.List(t&) End If Next For t& = 0 To Dir1.ListCount - 1 List1.AddItem Dir1.List(t&) Next If t& = 0 Then GoTo finishedpoint cnt& = 0 startpoint: Dir1.Path = List1.List(cnt&) File1.Path = Dir1.Path For t& = 0 To Dir1.ListCount - 1 List1.AddItem Dir1.List(t&) Next For t& = 0 To File1.ListCount - 1 List2.AddItem Dir1.Path + "\" + File1.List(t&) Next cnt& = cnt& + 1 If cnt& < List1.ListCount Then GoTo startpoint finishedpoint: Label1.Caption = "Dateien:" + Str$(List2.ListCount) End Sub gruß, alert

Wie kann ich nach groß und klein suchen mit diesem Code	46	alert	20.08.02 19:39
Re: Wie kann ich nach groß und klein suchen mit diesem Code	256	Dieter	20.08.02 19:56
Re: Wie kann ich nach groß und klein suchen mit diesem Code	25	alert	20.08.02 20:05
Re: Wie kann ich nach groß und klein suchen mit diesem Code	252	Dieter	20.08.02 20:12
Re: Wie kann ich nach groß und klein suchen mit diesem Code	21	alert	20.08.02 21:04
Re: Wie kann ich nach groß und klein suchen mit diesem Code	253	Dieter	20.08.02 21:08
Re: Wie kann ich nach groß und klein suchen mit diesem Code	22	alert	20.08.02 21:35
Re: Wie kann ich nach groß und klein suchen mit diesem Code	252	Dieter	20.08.02 23:56
Re: Wie kann ich nach groß und klein suchen mit diesem Code	22	alert	21.08.02 00:24
Re: Wie kann ich nach groß und klein suchen mit diesem Code	361	Dieter	21.08.02 00:42

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