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 2 visitantes (3 clics a subpáginas) ¡Aqui en esta página!  
 

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

Este sitio web fue creado de forma gratuita con PaginaWebGratis.es. ¿Quieres también tu sitio web propio?
Registrarse gratis