[VB6]Creazione file di testo...

[chisono]

Salve ragazzuoli,

ho questo piccolo problemino:

Sto' creando un piccolo quanto casareccio programmino per la gestione dei file di log ora ho un problema...

fil = Form1.CommonDialog1.FileName
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(fil)
Set ts = f.OpenAsTextStream(1, -2)
Do While ts.AtEndOfStream <> True
' opeazioni
loop

con questo codice apro e preocesso il file di log ora però per esigenze che non sto' a spiegarvi dovrei creare un file di testo che contiene solo alcune informazioni dei file di log...
ovvero:

fil = Form1.CommonDialog1.FileName
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(fil)
Set ts = f.OpenAsTextStream(1, -2)
Do While ts.AtEndOfStream <> True

' opeazioni
' if condizione = true 
' aggiungi questo dato al nuovo file creato
' end if

loop 

mi aiutate!?!?
thanks