VB: Abrir arquivos *.pls e *.m3u em um listbox

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.

por Tássio Guerreiro Antunes Virgínio

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