darkzonemu
  Grava contenido
 

CODIGO


Private Sub Command1_Click()
Dim mitexto As Integer
mitexto = FreeFile
Open "c:ejemplo.txt" For Output As #mitexto
Print #mitexto, Text1
Close #mitexto
End Sub

 
  Hoy habia 1 visitantes (4 clics a subpáginas) ¡Aqui en esta página!  
 
=> ¿Desea una página web gratis? Pues, haz clic aquí! <=

No nos hacemos responsables por problemas que pudieran ocasionar la prueba de estos Trucos. Se recomienda su uso a personas capacitadas en el tema.