a ver señor matrix que nadie nace sabiendo si supiera no pediria ayuda
![:P :P](https://forum.elhacker.net/Smileys/navidad/tongue.gif)
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúPrivate Sub Command2_Click()
Replace (textbox1.Text )
End Sub
Private Sub Command1_Click()
On Error GoTo Err_Sub
Dim n_File As Integer
Dim Contenido As String
'Número de archivo libre
n_File = FreeFile
'Abre el archivo indicado
Open txt_Path For Input As n_File
'Lee todo los datos del archivo y lo almacena en la variable
Contenido = Input$(LOF(n_File), #n_File)
'Cierra el archivo abierto
Close n_File
'Carga el contenido de la variable en el TextBox
txt_Contenido = Contenido
Exit Sub
Err_Sub:
MsgBox Err.Description, vbCritical
End Sub
Open "Archivo.txt" For Append As #1 ' Abre archivo de salida para añadir
texto1 = " Artist:...: " & text1.text
texto2 = " Title:.....: " & text2.text
Print #1, texto1 'escribe el contenido del control textbox1
Print #1, texto2 'escribe el contenido del control textbox2
Close #1