Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Do...Loop
Autor: Rabe
Datum: 04.03.02 14:51
hallo zusammen, ich habe folgendes Problem. Um ein Verzeichnis zu überwachen habe ich mir mit Hilfe eine do loop fast Endlosschleife und dem FileSystem Objekt eine AciveX exe gebastelt. Nur leider habe ich nun folgendes problem. Die Funktion ist einwandfrei allerdings benötigt diese exe fast 100% der Systemresourcen. Gibt es eine Möglichkeit dies zu Verhindern??? das ganze sieht dann so aus: Set f = fso.GetFolder(strPfad) Set fls = f.Files i = 0 For Each fl1 In fls text1(i) = fl1.Name i = i + 1 Next fl1 i = i - 1 If i < 0 Then i = 0 Do While bolEnde = False For x = 0 To 50 text2(x) = "" Next x x = 0 For Each fl1 In fls text2(x) = fl1.Name x = x + 1 Next fl1 x = x - 1 If x < 0 Then x = 0 If i > x Then For y = 0 To i For z = 0 To x If text1(y) = text2(z) Then Exit For End If 'Alle überprüft ohne Übereinstimmung If z = x Then 'Eintrag löschen For i2 = y To i 'Letzten Eintrag Löschen und i -1 If i2 = i Then text1(i2) = "" i = i - 1 'Nachfolgenden Eintrag eintragen Else text1(i2) = text1(i2 + 1) End If Next i2 End If Next z Next y Else Gefunden = False For y = 0 To x For z = 0 To i If text2(y) = text1(z) Then Gefunden = True Exit For End If Next z If Not Gefunden Then 'Wenn keine Übereinstimmungen gefunden wurden If text2(y) <> "" Then RaiseEvent Finished(text2(y)) text1(i + 1) = text2(y) i = i + 1 End If End If Gefunden = False Next y End If DoEvents Loop vielleicht hat noch jemand eine Idee wie ich das ändern kann Danke Ralph

Do...Loop	73	Rabe	04.03.02 14:51
MBShellSpy	377	Dieter	04.03.02 14:54
Re: MBShellSpy	43	Rabe	04.03.02 14:59
Re: Do...Loop	41	Braindead	04.03.02 14:55
Re: Do...Loop	39	Rabe	04.03.02 15:07
Re: Do...Loop	40	Braindead	04.03.02 15:14
Re: Do...Loop	41	Rabe	04.03.02 15:16
Re: Do...Loop	39	Braindead	04.03.02 15:17
Re: Do...Loop	47	Braindead	04.03.02 15:21
Re: Do...Loop	35	Rabe	04.03.02 15:25

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