Estou aprendendo

[Anthony Ewertom]

Eu queria saber como faz pra colocar um botõa que selecione arquivos, por exemplo: to querendo fazer um tocador de músicas por arquivos, mas não sei como chamar a tela de selção deles pelo explorer. Será que tem como fazer isso no vb?🤔

 

 

[Alyson Ronnan Martins]

@Anthony Ewertom Boa noite.

Public Function OpenFileDialog() As String
    Dim Filter As String, Title As String
    Dim FilterIndex As Integer
    Dim Filename As Variant
    ' Define o filtro de procura dos arquivos
    Filter = "Arquivos Wave (*.wav),*.wav,"
    ' O filtro padrão é *.*
    FilterIndex = 3
    ' Define o Título (Caption) da Tela
    Title = "Selecione um arquivo"
    ' Define o disco de procura
    ChDrive ("C")
    ChDir ("C:\")
    With Application
        ' Abre a caixa de diálogo para seleção do arquivo com os parâmetros
        Filename = .GetOpenFilename(Filter, FilterIndex, Title)
        ' Reseta o Path
        ChDrive (Left(.DefaultFilePath, 1))
        ChDir (.DefaultFilePath)
    End With
    ' Abandona ao Cancelar
    If Filename = False Then
        MsgBox "Nenhum arquivo foi selecionado."
        Exit Function
    End If
    ' Retorna o caminho do arquivo
    OpenFileDialog = Filename
End Function

• Utiliza-se o método GetOpenFilename para chamar a caixa de diálogo
• Define-se o filtro de seleção de arquivos para o tipo  “Wave Files (*.wav),*.wav,”, mas poderia ser qualquer outro (txt, xls, doc, etc)
• Pode-se definir um drive padrão de busca do arquivo

Fonte: https://www.tomasvasquez.com.br