Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Private Sub Form_Load() Set fs = CreateObject("Scripting.FileSystemObject") End Sub
Private Sub Command1_Click() On Error Resume Next Set f = fs.OpenTextFile(App.Path & "\Datos.txt", 8, 0) If Err = 53 Then Set f = fs.CreateTextFile(App.Path & "\Datos.txt") f.WriteLine Text1.Text & " " & Text2.Text On Error GoTo 0 End Sub
En la Sección Código Fuente tienes un ejemplo de manejo de archivos de texto, está en: http://lawebdelprogramador.com/codigo/enlace.php?idp=17&id=93&texto=Visual+Basic