Hola,pues como has dicho lo habia probado,y igualmente se abre el reproductor.
Gracias de todos modos.
Gracias de todos modos.
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úDim linea As String, col() As String
Dim i As Byte
Data1.DatabaseName = App.Path & "\lib.mdb"
Data1.RecordSource = "tabla2"
Open App.Path & "\log.txt" For Input As #1
While Not EOF(1)
Line Input #1, linea
For i = 1 To 1
Combo1.AddItem (linea)
Dim cadena() As String
Dim i As Byte
Open App.Path & "\log.txt" For Input As #1
For i = 1 To 10
Line Input #1, cadena(i)
Next i
Close #1
Combo1.AddItem cadena(i)
Open App.Path & "\log.txt" For Append As #1
Print #1, Combo1.Text
Close #1