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