27/07/2004, 07:51
|
 | | | Fecha de Ingreso: agosto-2003 Ubicación: Puerto Rico
Mensajes: 332
Antigüedad: 20 años, 8 meses Puntos: 0 | |
| hola
si es en un arhivo prueva esto para guardar:
Private Sub mnusave_Click()
On Error GoTo cancelar 'en caso de que halla un error ir a cancelar
Dim archivo As String 'declarar una variable para identificar 'el nonbre del archivo
archivo = "c:\ubicacion del archivo"
Open archivo For Output As #1 'sintax para guardar una archivo
'open nombre_archivo for tipo as numero el cual se va a
'conocer en el codigo el archivo abierto
Print #1, Text1.Text + vbCrLf 'anadimos lo que queremos en el archivo
'vbCrlf = orden del archivo quedara acomodado tal como
'esta en el textbox
Close 'cerramos el archivo
cancelar: 'accion que va a tomar si hay algun error.
End Sub
para cargar el archivo:
Private Sub mnuopen_Click()
On Error GoTo cancelar 'si hay algun error ir a cancelar
Dim archivo As String 'decalramos la variable para identificas el nombre del archivo
Dim cadena As String ' declaramos la variable para identificar el contenido del archivo
Text1.Text = " " 'borramos el contenido del textbox
archivo = "c:\ubicacion del archivo"
Open archivo For Input As #1 'sintaxd de guardar
While Not EOF(1)
Line Input #1, cadena 'llamamos el contenido del archivo
Text1.Text = Text1.Text + cadena + vbCrLf 'introducimos el contenido al textbox
Wend
Close 'cerramos el archivo
cancelar: 'escribimos el codigo de lo que queremos que haga si hay un error.
End Sub
saludos
hmtech
__________________
"...todos los días hay que luchar por que ese amor a la humanidad viviente se transforme en hechos concretos, en actos que sirvan de ejemplo, de movilización."
Che Guevara |