otra pregunta com hago para q los datos del txt al presionar un boton se escriban en un textbox con multiline = true
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúPrivate Sub WebBrowser1_DownloadComplete()
ComboBox1.Text = WebBrowser1.LocationURL
ComboBox1.AddItem (WebBrowser1.LocationURL)
End Sub
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