Ayuda con VB y un .TXT

[my_sistemas]

yt al volver a ingrsear datos en el formulario no va a sobre escribir los datos ya existentes?

[NYlOn]

'Diferentes soluciones para el mismo problema'

....

Amo la programacion xD





Salu2

[my_sistemas]

ya encontre la solucion asi era

Código [Seleccionar] Expandir

Private Sub Command1_Click()
On Error GoTo line2
   
Dim x
x = GetAttr(App.Path & "\archivo.txt") 'Si no existe genera un error.

line1:
Open App.Path & "\archivo.txt" For Append As #1 'Escribe el contenido de las cajas de texto
    Print #1, Text1.Text, Text2.Text
Close #1

Exit Sub

line2:
Open App.Path & "\archivo.txt" For Output As #1 'Lo crea
Close #1
GoTo line1
End Sub

gracias por la ayuda....

[NYlOn]

Estas usando aprox. 10 lineas de mas...

acaso no lees todos los post ??


G0nz4

[my_sistemas]

claro q los leo pero los demas dicen com escribir pero la cosa es q no existe el archivo es decir tengo q crearloi en caso no exista.... por eso es q es un poquito largo

[NYlOn]

Es que aunke no exista el arcihvo, lo crea e introduce los datos, no hace falta crearlo antes...
Con este codigo ya es suficiente, si el archivo no existe se crea igual...

Código [Seleccionar] Expandir


Private Sub Command1_Click()
    Open "C:\asd.txt" For Append As #1
        Print #1, Text1.Text & "           " & Text2.Text
    Close #1
End Sub


...
Salu2

[Ch3ck]

claro q los leo pero los demas dicen com escribir pero la cosa es q no existe el archivo es decir tengo q crearloi en caso no exista.... por eso es q es un poquito largo

Ese code esta muy largo ademas supongo que con Append si no existe el archivo se crea y se escribe y si existe se abre y se escribe.

No hay porque utilizar GetAttr 

[my_sistemas]

bueno gracias por la aclaracion... si es q no existe el archivo lo creaba por si solo.... bueno gracias ahora si  

[NYlOn]

de nada

[my_sistemas]

otra pregunta com hago para q los datos del txt al presionar un boton se escriban en un textbox con multiline = true