Tra i miei appunti ho reperito una routine che forse fa al caso tuo:
Dim objFso, objFile
Set objFso=CreateObject ("Scripting.FileSystemObject")
If objFso.FileExists ("C:\esper.txt") Then
Set objFile=objFso.OpenTextFile ("C:\esper.txt ", 2)
objFile.WriteLine (NomeText.text) 'Scrive il testo e poi va a capo
objFile.Write (NumeroText.text) 'Scrive il testo e prosegue senza andare a capo
End if
|