Ciao a tutti ho un piccolo problema
premetto che sono un principiante

il problema è il seguente:
devo estrarre da dei file log tutta la riga contenente una determinata frase, chiamiamola pippo,e metterla in un nuovo file
questa routine l'ho creata e funziona alla perfezione nel momento in cui ho dei file di dimensioni piccole e modeste ma nel momento in cui gli do in pasto il vero file log (circa 300 Mega) lui lavora ma non so a che punto è e se la mia ruotine continua a funzionare
come posso fare???
vi posto qui sotto il Loop interessato
--------------------------------------
Open Sorgente.Text For Input As #1

Riga = 0
Do While Not EOF(1)
Open Destinazione.Text For Output As #2
DoEvents
Riga = Riga + 1
Nriga.Caption = Riga
Line Input #1, Testo
DoEvents
If InStr(1, Testo, stringa.Text, vbTextCompare) > 0 Then
Print #2, Testo
End If
DoEvents
Close #2
Loop

Mi consigliate di utilizzare lo stram magari è più veloce???

non so + dove battere il cranio!!!!

Grazie a tutti