Opcion de Guardar y Cargar

[djboro88]

¡¡¡ Ya he conseguido el codigo que necesitaba !!!

Solo hay un problemita, es que al crearme los .txt, les mete un Enter cuando acaba de escribir, claro al cargar los txt me los mete perfecto, pero al final de cada uno me introduce unos signos muy extraños.

El codigo que utilizo es:

Abrir

Código:

Private Sub Command1_Click()
Dim foo As Integer
    
    foo = FreeFile
    Open "C:\textbox1.txt" For Input As #foo
        Text1 = Input(LOF(foo), #foo)
    Close #foo
    
    Open "C:\textbox2.txt" For Input As #foo
        Text2 = Input(LOF(foo), #foo)
    Close #foo
    
    Open "C:\textbox3.txt" For Input As #foo
        Text3 = Input(LOF(foo), #foo)
    Close #foo
End Sub

Guardar

Código:

Private Sub Command2_Click()
Dim foo As Integer
    
    foo = FreeFile
    Open "C:\textbox1.txt" For Output As #foo
        Print #foo, Text1
    Close #foo
    
    Open "C:\textbox2.txt" For Output As #foo
        Print #foo, Text2
    Close #foo
    Open "C:\textbox3.txt" For Output As #foo
        Print #foo, Text3
    Close #foo
    
End Sub

Con el Multiline se soluciona.

Gracias por todo.