Autor
Código:
Private Sub Command2_Click()
Dim fnum As Integer
fnum = FreeFile 'se obtiene el numero de archivo
Open "ruta/valor.txt" For Output As fnum 'se abre para escritura
' Escribe las lineas de texto
Print #fnum, "ataque 12"
Print #fnum, "atauqe 13"
Print #fnum, "poder 15"
Close fnum 'se cierra el archivo
End Sub
Dim fnum As Integer
fnum = FreeFile 'se obtiene el numero de archivo
Open "ruta/valor.txt" For Output As fnum 'se abre para escritura
' Escribe las lineas de texto
Print #fnum, "ataque 12"
Print #fnum, "atauqe 13"
Print #fnum, "poder 15"
Close fnum 'se cierra el archivo
End Sub
Pero me gustaría poder crear el archivo de texto, tomando como referencia los datos que se agreguen en un textbox multilinea a través de un commandbutton.
Me podrían ayudar a adaptar el código
Muchas Gracias
En línea
