Michael Köhler wrote:
EditField1(1).StyledText.Text=EditField1(1).Text+...
Versuch doch mal, die Treffer in ein Array zu schreiben. Also etwas so: Treffer.append Mid(folder.Item(i).Name,0,7)+" "+Mid(result(j),0,InStr(result(j), " ")) Nach dem Durchsuchen kannst Du dann folgendermaßen das Array ausgeben: EditField1(1).StyledText.Text=Join(Treffer,EndOfLine) Das sollte das ständige Neuzeichnen beheben und ist sicher auch schneller. Ob dadurch auch Dein Problem behoben ist, kann ich nicht sagen. Wenn Du keine Windowsversion von RB hat ist das recht böd zu testen. Wenn möglich installier Dir die Testversion von RB, dann hast Du 30 Tage Zeit, den Fehler zu finden :-) Wenn das keine Option ist, wirst Du nicht umhin kommen, für jeden Schleifendurchlauf ein Protokoll in eine Datei schreiben zu lassen. Dann erkennst Du wenigstens, wann es nicht weiter geht. MfG, Metti.
