Essa função tem como entrada o caminho de um arquivo pls ou m3u, e coloca na listbox o caminho das músicas, que estão gravados no arquivo.
Será Necessário criar um form com um botão para chamar o commondialog "Open". O qual deve estar configurado para arquivos com extensão m3u e pls.
* O código do botão:
Private Sub Command1_Click()
CommonDialog1.ShowOpen
AddLista (CommonDialog1.FileName)
End Sub
* O Código da função - Esse Código Tem que estar em um Modulo:
Public Function AddLista(Arquivo01)
If Arquivo01 = "" Then Exit Function 'Se o caminho for invalido sai da função
Form1.List1.Clear 'Apaga a Lista
'Abre o arquivo
Open Arquivo01 For Input As #1
' Ler linha por linha até o final
Do Until EOF(1)
Line Input #1, Linha
'Se o final do arquivo for m3u
If Right(Arquivo01, 3) = "m3u" Then
If Left(Linha, 2) <> "#E" And Left(Linha, 1) <> "Fi" And Left(Linha, 1) <> "Ti" And
Linha <> "" Then
Form1.List1.AddItem Linha
End If
End If
' Se o final do arquivo for pls
If Right(Arquivo01, 3) = "pls" Then
If Left(Linha, 2) = "Fi" Then
For x = 1 To Len(Linha)
If Left(Right(Linha, x), 1) = "=" Then
Teste9 = Right(Linha, x - 1)
End If
Next
Form1.List1.AddItem Teste9
End If
End If
Loop
'fecha o arquivo
Close #1
End Function
* Visão Final do programa com um arquivo listado:
Tássio Virgínio (MSN: tassiovirginio@hotmail.com)
Programador Visual Basic 6 / Visual Basic .NET
Trabalha no Núcleo de Tecnologia da Informação da Faculdade de Ciências Aplicadas de Petrolina.
Especialista em Visual Basic .NET pela MSDN.
Petrolina - PE