Mensajes

solo me interesa saber la extension del archivo,osea los 3 ultimos caracteres,pero no se como poder cojerlos

nadie sabe como ayudarme??

Ola a todos.Sigo teniendo algunaas dudas con el reproductor,que espero q me solucioneis.

Como puedo hacer para q si en el list pongo un avi o mp3,al pinxar en ellos para reproducirlos,en un label me ponga un texto.
No se si me explico,q si por ejemplo es un mp3,en un label diga mp3,si es avi,q diga avi etc.


Espero vuestras respuestas y gracias por todo

justamente era eso lo que quiero hacer

si eso de asociar los arxivos,ya lo habia exo.Lo q pasa es q si abro el mp3 desde fuera,entra mi programa pero no lo reproduce

Ola a todos.Sigo con las dudas del reproductor,aqui os las expongo para ver si me podeis ayudar.

Mi reproductor reproduce mp3,wav,avi,mpg etc.Le e puesto para asociar dixas extensiones a mi programa,lo cual funciona bien,porq si abro un mp3 se abre mi programa,pero lo q pasa es q no se reproduce y si le doy a play es como si no hubiera archivo.
Mi pregunta es ¿Como hago para que reproduzca el archivo al abrirlo?

Ola amig@s
Estoy haciendo un reproductor,pero cuando añado varios archivos a un listbox,si reproduzco una cancion y acaba,no empieza la siguiente.Otra cosa,como puedo hacer para q reproduzca desd el principio

pd:He usado el boton buscar y no e encontrado solucion a mi pregunta

Ola a todos 
me e descargado el programa pokemon netbattle
http://pokerealm.net/files/Setup096.exe
Y se me ocurrio la idea de si se podia hacer un cliente de ese tipo en vb,pero que se conectase a los mismos servidores,el servidor q e usado y es este pokemon-stats.zapto.org
Pues eso,solo me gustaria saber si es posible hacerlo,y si es asi como.

Gracias

ya e arreglado el problema

gracias

Ola amigo,toy con un programa q usa unas opciones y tiene q guardarlas en un arxivo al cerrar el programa,y cargarlas al abrirlo.Lo que pasa q el arxivo lo guarda con un nombre q no es,y cuando abro el programa siempre me dice q el arxivo no existe.

Mi code es este

Private Sub configuracion(fileName As String)
On Error Resume Next

Close App.Path & "\config.dat" & fileName
Open App.Path & "\config.dat" & fileName For Output As #1

Print #1, "Color=" & config.Combo1.Text

Close #1
MsgBox "Archivo Creado Correctamente"
End Sub

Private Sub Form_Load()
On Error Resume Next
Dim Respuesta As Integer
Dim Script As Object
Dim fnum As Integer
Set Script = CreateObject("Scripting.filesystemobject")
If Script.FileExists(App.Path + "\config.dat") = True Then
    Text1.Text = ""
On Error GoTo Ninguno
fnum = FreeFile
    Open App.Path & "\config.dat" For Input As fnum
    Do While Not EOF(fnum)
        Line Input #fnum, txt
        Text1.Text = Text1.Text & vbCrLf & txt
    Loop
    Close fnum
Ninguno:
Else
    Respuesta = MsgBox("El archivo config.dat no existe,¿Desea que el programa lo cree?", vbYesNo, "Error")

If Respuesta = vbYes Then
  Call configuracion("config.dat")

Else
   
End If
End If
end sub