Grabar un TextBox en un fichero

Crea un proyecto que contenga un TextBox (Text1) y un botón (Command1) y añade el siguiente código:

Private Sub Command1_Click()
    Dim CanalLibre As Integer

    'Obtenemos un canal libre que nos dará
    'el sistema oparativo para poder operar
    CanalLibre = FreeFile()

    'Abrimos el fichero en el canal dado
    Open "C:FicheroTexto.txt" For Output As #CanalLibre

    'Escribimos el contenido del TextBox al fichero
    Print #CanalLibre, Text1.Text
    Close #CanalLibre
End Sub
Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s