Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

schleifen problem
Autor: georg-30
Datum: 01.05.03 18:18
hallo leute heute nerve ich ganz schön aber ich habe noch ein problem! ich lese aus einer ini date 200 einträge in ein listview mit folgendem code ein Private Sub test_Click() Dim i As Variant With ListView1 Dim newitem As ListItem For i = 1 To 200 s = IniRead("test", (i)) Set newitem = .ListItems.Add(, , s) Next i End With End Sub das funktioniert ja bis jetzt ganz gut nun möchte ich aber noch folgenden code einfügen bevor der eintrag in das listview geschrieben wird. If FileExists(i) = True Then newitem.SubItems(1) = "Vorhanden" else newitem.SubItems(1) = "Nicht Vorhanden" Msgbox" Der Test wurde Erfolglos abgebrochen" End If also solange diese dateien vorhanden sind soll die schleife durchlaufen wenn aber eine datei fehlt soll mit der msgbox abgebrochen werden. bitte um eure hilfe! danke georg

schleifen problem	568	georg-30	01.05.03 18:18
Re: schleifen problem	310	georg-30	02.05.03 09:17
Re: schleifen problem	333	Hubkabel	02.05.03 22:54

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