Ajuda com Script de Play no Media Player - Tocar mp3, mp4

Boa tarde, a todos que fazem o maximoacces.com...

Senhores tenho o seguinte script no botão Play:

Private Sub Playlist()
'Adaptação Player Kadosh - Melkpromo Systems BR - Jefferson D'Assis

On Error Resume Next

Dim strPath As String
strPath = Me.Diret & Me.Arquivo & ".m3u"
Kill strPath

If IsNull(Me.Dire) = True Then
MsgBox "Capture o diretório"
Me.Dire.SetFocus
Exit Sub
End If

If IsNull(Me.Diret) = True Then
MsgBox "Capture o diretório"
Me.Diret.SetFocus
Exit Sub
End If

If IsNull(Me.Arquivo) = True Then
MsgBox "Informe o nome do arquivo txt (sem extensão)"
Me.Arquivo.SetFocus
Exit Sub
End If

Dim Temp As String
If Dir(Me.Diret & Me.Arquivo & Me.TXT) <> "" Then Kill Me.Diret & Me.Arquivo & Me.TXT

Temp = Dir(Me.Dire & "*.*")

Do While Not Temp = ""
Open Me.Diret & Me.Arquivo & Me.TXT For Append As #1
Print #1, Me.Dire & Mid(Temp, 1, InStrRev(Temp, ".") - 1) & ".mp3"
Close #1
Temp = Dir
Loop


'MsgBox Me.Arquivo & " Salva em " & Me.Diret

Name Me.Diret & Me.Arquivo & Me.TXT As Me.Diret & Me.Arquivo & ".m3u"


Me.lbxFiles.Requery
Me.lbxFiles.SetFocus
Me.lbxFiles.Selected(0) = True
Deletar

Me.lbxFiles.Requery
Me.lbxFiles.SetFocus
Me.lbxFiles.Selected(0) = True
Deletar

player

Me.coco.URL = Me.lbxFiles.Value

Me.txtNome = Mid([MyStr], InStrRev([MyStr], "\") + 1) 'Pega só o nome do arquivo sem o caminho das pastas
Me.txtDesc = Mid([strPath], InStrRev([strPath], "\") + 1) 'Pega o nome da PlayList.m3u
End Sub

---------------------------------------------------------------------------------------------------------------------------------------------------------

Fiz teste alterando e duplicando esta parte do script para rodar, tanto arquivos .mp3 como .mp4:

Dim Files As String
If Dir(Me.Diret & Me.Arquivo & Me.TXT) <> "" Then Kill Me.Diret & Me.Arquivo & Me.TXT

Files = Dir(Me.Dire & "*.*")

Do While Not Files = ""
Open Me.Diret & Me.Arquivo & Me.TXT For Append As #1
Print #1, Me.Dire & Mid(Files, 1, InStrRev(Files, ".") - 1) & ".mp3"
Close #1
Files = Dir
Loop

Coloquei abaixo da parte original. Contudo, ao executar, roda arquivos de vídeos .mp4... Mas arquivos .mp3 não roda.

Qual ajuda peço aos companheiros?

Para que no "Do While" possa rodar os dois tipos de arquivos.

Desde já agradeço.

Olá Jefferson D'Assis,

Monte um pequeno exemplo (só a dar o MP3) e partilhe a base de dados para se testar.

Abraço

Bom dia. AhTeixeira. Obrigado pelo retorno.

Esse player é um dos idealizados pelo Avelino. Fiz algumas adaptações e desenvolvi uma capa para deixar mais bonito. Só que como explicado antes, não consigo criar um script que rode outras extensões além de .mp3... Até consigo duplicando as duas funções de Loop, mais ao abrir e selecionar a pasta com os arquivos só roda a ultima sentença com extensão .mp4...

Segue base de estudo...

dropbox.com/s/u9p9z42wuszpqoz/RodaPlayer.zip?dl=0

Mais uma vez agradeço.

Bom dia Senhores,

Alguma solução no meu pedido de ajuda?

O Player já toca arquivos .mp3! Gostaria de anexar arquivos .mp4 ao Media Player. Ao escolher a pasta e gerar a Playlist...

É um projeto de cunho pessoal, sem fins lucrativos...

Desde já agradeço a quem poder me ajudar....

Olá,
estou com uma playlist, mas queria que tocasse aleatoriamente, como faço?