07/04/2005, 23:40
|
 | | | Fecha de Ingreso: octubre-2003 Ubicación: Puerto Rico
Mensajes: 163
Antigüedad: 21 años, 5 meses Puntos: 1 | |
| Este es el código que utilizo en uno de los módulos de un aplicación, espero que te ayude.
'Creo la ruta del archivo
Dim Ruta As String
Ruta = "C:\archivo.txt"
Open Ruta For Append As #1
'Añado la data al archivo y luego lo cierro
Do While Not (rs.EOF)
Print #1, rs.Fields("nombre").Value
rs.MoveNext
Loop
Close #1 |