Excel - Como selecionar o arquivo usando vba?

Question

Boa tarde.

Estou tentando criar um modo de que ao abrir a caixa de dialogo selecionar arquivo, ele traga somente o nome do arquivo seguido da extensão (Ex. cliente.xlsx), mas ao invés disso ele só retorna com o diretorio do arquivo.

Como ele esta trazendo:

C:\Users\edeni\Contacts

Como deveria ser:

cliente.xlsx

Veja código abaixo:

Sub SelecionaDir()

With Application.FileDialog(msoFileDialogFolderPicker)

.InitialFileName = "C:"

.Title = "Selecione uma pasta"

.Show

If .SelectedItems.Count > 0 Then txtFile.Text = .SelectedItems(1)

End With

End Sub

Private Sub cmdLocalizar_Click()

SelecionaDir

End Sub

Desde já grato pela ajuda.

Answer 1

Olá Gomes-SP, tudo bem? 

Bem-vindo à Comunidade da Microsoft!

Referente ao seu caso, onde deseja realizar lista reprodução por no Windows Media Player por linha de programação, peço a gentileza de acessar o link abaixo que vai direcioná-lo ao TECHNET é um fórum especialmente destinados para desenvolvedores e profissionais em TI.

 **:: TECHNET ::**

Se esses procedimentos lhe ajudaram, por gentileza clique em "Resolvi meu problema" e também marque como resposta, assim poderá ajudar outras pessoas. 

Espero ter ajudado, até mais!