Const ParaLectura = 1, ParaEscritura = 2, ParaAnexar = 8 Dim fso, f, ts Set fso = CreateObject("Scripting.FileSystemObject") ' fso.CreateTextFile "prueba1.txt" Set f = fso.GetFile("prueba1.txt") Set ts = f.OpenAsTextStream(ParaAnexar) ts.WriteLine "Hola a todos." ts.Close