luisa_fda
13 de Diciembre del 2004

Necesito guardar la información obtenida de un puerto serial, en un archivito de texto.

Porfavor si alguien sabe como hacerlo le agradeceria muchisimo si me proporciona el codigo para lograrlo.

Humberto
13 de Diciembre del 2004

Es muy sencillo Luisa.
Te anexo el código que hace exactamente eso.
Nota: no olvides tener antes creado un archivo .txt en la ruta donde se va a guardar (ve el ejemplo).
saludos.

Private Sub Command1_Click()
Dim Renglon01 As String
Dim Renglon02 As String
Renglon01 = "Hola"
Renglon02 = "Mundo"

'Abre el archivo para grabar
Open "C:GirosGiros.txt" For Output As #1

'Lo graba en el archivo de tipo Texto
Print #1, Renglon01
Print #1, Renglon02
Close #1 ' y lo cierra al final
End Sub

en?
13 de Diciembre del 2004

Humberto, en realidad no es necesario que el fichero ya exista en la ruta especificada, ya que el modo de acceso Output crea el fichero automáticamente si no existe, igual que si es Append, Binary o Random.

Lo que si es necesario es que la ruta sea válida, es decir, que el directorio del fichero especificado sí exista.

--
Un saludo.

Humberto
13 de Diciembre del 2004

Ok enco, eso lo desconocía, gracias por hacermelo saber.
Saludos.