none
Reprodutor Musicas RRS feed

  • Pergunta

  • Olá a todos. criei um reprodutor de musicas no Visual basic 2010

    Ele funciona e tal! Tou é com um problema. No context menu Strip tem 2 secções:

    Abrir... Media

    No Abrir... tem: - Abrir Ficheiro- Abrir Disco- Abrir Pasta

    Que codigos devo usar no Abrir Ficheiro e no Abrir Disco ???

    No Disco queria que abrisse uma janela do Explorer do windows na pasta "Computador" onde aparecem as partições e os CD´s etc...

    Na Pasta queria que abrisse uma janela do Explorer do windows na pasta de "Documentos" onde so devia aparecer pastas. Caso uma pasta fosse escolhida para abrir e não tivesse qualquer musica apareceria uma mensagem do tipo "Não foram encontradas musicas. Seleccione outra pasta" 

    quarta-feira, 28 de dezembro de 2011 18:02

Respostas

  • Use este método para abrir a pasta Meus Documentos e verificar se existe arquivos:

        Public Sub CheckFiles(ByVal FolderPath As String)
            Dim DirDiretorio As DirectoryInfo = New DirectoryInfo(FolderPath)
            Dim oFileInfoCollection() As FileInfo
            Dim oFileInfo As FileInfo
            Dim i As Integer
            Dim ListBox1 As New ListBox
            oFileInfoCollection = DirDiretorio.GetFiles("*.mp3")
            For i = 0 To oFileInfoCollection.Length() - 1
                oFileInfo = oFileInfoCollection.GetValue(i)
                ListBox1.Items.Add(oFileInfo.Name)
            Next
            If ListBox1.Items.Count > 0 Then
                Process.Start(My.Computer.FileSystem.SpecialDirectories.MyDocuments)
            Else
                MessageBox.Show("Não existem arquivos do tipo (*.mp3) nesta pasta.", "Não existe arquivos", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
            End If
        End Sub
    


    Para abrir a pasta "Meu Computador" use o seguinte código:

    Process.Start("explorer.exe", "::{20d04fe0-3aea-1069-a2d8-08002b30309d}")
    


    quinta-feira, 2 de fevereiro de 2012 13:40

Todas as Respostas

  • Use este método para abrir a pasta Meus Documentos e verificar se existe arquivos:

        Public Sub CheckFiles(ByVal FolderPath As String)
            Dim DirDiretorio As DirectoryInfo = New DirectoryInfo(FolderPath)
            Dim oFileInfoCollection() As FileInfo
            Dim oFileInfo As FileInfo
            Dim i As Integer
            Dim ListBox1 As New ListBox
            oFileInfoCollection = DirDiretorio.GetFiles("*.mp3")
            For i = 0 To oFileInfoCollection.Length() - 1
                oFileInfo = oFileInfoCollection.GetValue(i)
                ListBox1.Items.Add(oFileInfo.Name)
            Next
            If ListBox1.Items.Count > 0 Then
                Process.Start(My.Computer.FileSystem.SpecialDirectories.MyDocuments)
            Else
                MessageBox.Show("Não existem arquivos do tipo (*.mp3) nesta pasta.", "Não existe arquivos", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
            End If
        End Sub
    


    Para abrir a pasta "Meu Computador" use o seguinte código:

    Process.Start("explorer.exe", "::{20d04fe0-3aea-1069-a2d8-08002b30309d}")
    


    quinta-feira, 2 de fevereiro de 2012 13:40
  • muito obrigado pela ajuda

    so uma coisa consegue arranjar-me um site ou tutorial que explique como fazer um player de musicas e videos? o que estava a fazer deu erro  e apaguei:(


    O meu objetivo ______ criar um sistema operativo

    sábado, 11 de fevereiro de 2012 16:48
  • Também estou criando um Sistema Operacional, como um segundo projeto
    domingo, 20 de dezembro de 2015 19:20