Consulta!! please!

Hola!,. disculpen que los moleste.. es que estoy haciendo un trabajo para la facultad .., con FSO , les envio el codigo.. el error que me da es que el procedimiento o argumento no es valido.. en la linea Set ts = File.OpenAsTextStream(ForAppending) espero que puedan ayudarme!.. les comento que no he instanciado la dll de scripting runtimes sino que esperaba con el creatobject que todo sea en tiempo de ejecucion!.. gracias adios! Private Sub cmdAlta_Click() 'Dim File As File Dim File, fso, ts 'Dim fso As New FileSystemObject Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists("A:\Mitch!Clients\Clientes.txt") Then Set File = fso.GetFile("A:\Mitch!Clients\Clientes.txt") Set ts = File.OpenAsTextStream(ForAppending) ts.writeline txtApellido & "," & txtNombre & "," & txtDomicilio & "," & txtTelefono ts.Close Set fso = Nothing Set ts = Nothing txtApellido.Text = "" txtNombre.Text = "" txtDomicilio.Text = "" txtTelefono.Text = "" txtApellido.SetFocus Else Set File = fso.CreateTextFile("A:\Mitch!Clients\Clientes.txt") End If End Sub

ForAppending=8

He probado tu codigo y la verdad es que a mi tambien me ha fallado... El problema es la constante "ForAppending", que ni tu ni yo tenemos definida (no se por que exactamente). Sustituye la palabra "ForAppending" por "8" sin las comillas, que es valor de esa constante. Funciona. Suerte, y saludos.

Pregunta finalizada. Valoración: 4.

Muy Bien. Me ha sido de gran utilidad