Crea un proyecto que contenga un TextBox (Text1) y un botón (Command1) y añade el siguiente código:
Private Sub Command1_Click()
Dim CanalLibre As Integer
'Obtenemos un canal libre que nos dará
'el sistema oparativo para poder operar
CanalLibre = FreeFile()
'Abrimos el fichero en el canal dado
Open "C:\FicheroTexto.txt" For Output As #CanalLibre
'Escribimos el contenido del TextBox al fichero
Print #CanalLibre, Text1.Text
Close #CanalLibre
End Sub
Posted
jue, dic 23 1999 20:08
by
Maverick