crypto no era eso

[DisTroX]

yo me referia a que tu escribas en un texto y le des al command guardar
ej: Hola me llamo tal...
"Guardar"
Cuando abras el programa como lo has guardado, tenerlo ahi.

Para ver este enlace Registrate o Inicia Sesion

[crypto136]

Abre un formulario, agregas un textbox y un commandbutton. Y reemplazas este codigo:

Te aviso si corres este codigo te saldra un error de "File not found" y eso es porque esta cargando el archivo cuando se inicia el programa, y el archivo no lo creas hasta que le des clic al boton.

Código:

Private Sub Command1_Click()
Open (Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\Escritorio\" & _
     "Archivo.log") For Output As #1
    Print #1, Text1.Text
Close
End Sub

Private Sub Form_Load()
On Error GoTo desc
Dim var As String
Open (Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\Escritorio\" & _
     "Archivo.log") For Input As #1
    Line Input #1, var
Close
Text1.Text = var
Exit Sub
desc:
MsgBox Err.Description
End Sub