[Resolvido]Nome arquivo FileDialog

Pessoal
Boa Noite

Pegue o codigo abaixo e gostaria de saber como faço para pegar somente o nome do arquivo que o usuario selecionar, pois de acordo com o codigo abaixo está pegando o nome completo..e nao gostaria disso...Caso alguem saiba como modificar o codigo abaixo...

Desde ja agradeço

'Dimensiona o objeto
Dim Fd As Object

'Define a caixa de diálogo como seleção de pasta(s)
Set Fd = Application.FileDialog(1)

'Define as propriedades da caixa de diálogo
With Fd
'Nome do botão de confirmação
.ButtonName = "Abrir"
'Título da caixa de diálogo
.Title = "Selecione o local onde se encontra o arquivo..."

'Caso este método retorne Verdadeiro significa que o usuário selecionou uma pasta
If .Show Then

'Retorna o caminho da pasta para a função
SelecionarPasta = .SelectedItems(1)
'Application.FileDialog(msoFileDialogFilePicker).InitialFileName (1)
MsgBox SelecionarPasta
End If
End With

'Finaliza o objeto
Set Fd = Nothing

Amigo

Não entendi uma coisa. Isto abre uma Msg, com o caminho e respectiva extensão. Não vejo como alterar isso. A minha pergunta; para que serve abrir só uma Msg?

Este codigo nao faz nada alem de abrir a janela pra selecionar o arquivo e coloca o caminho do arquivo em um label..porem ele pega o caminho completo..e eu preciso pegar apenas o nome também...

Adriano

Veja se assim serve ao que pretende

http://dl.dropbox.com/u/8157744/prx2000.zip

Cole num modulo e salve;

Public Function SeparaNomes(strFrase As String, QualSimboloVaiPartir As String, QualParteVaiSeparar As Integer) As String
'By@JPaulo2009 Dezembro
'Função separa uma frase pelas virgulas ou outro símbolo
'Exemplo: SeparaNomes("Esta é uma função\feita para separar palavras.", "\", 1)
'O 1 vai mostrar a primeira parte da frase, "Esta é uma função"

Dim strArray() As String
Dim strParteInteira As Integer

On Error GoTo Err_SeparaNomes

strArray = Split(strFrase, QualSimboloVaiPartir)

strParteInteira = UBound(strArray) + 1

If strParteInteira = 0 Then
SeparaNomes = strFrase
Exit Function
End If

If QualParteVaiSeparar = 0 Then
SeparaNomes = strFrase
Exit Function
ElseIf QualParteVaiSeparar < strParteInteira Then
QualParteVaiSeparar = strParteInteira
End If

SeparaNomes = Trim(strArray(QualParteVaiSeparar - 1))

Exit_SeparaNomes:
Exit Function

Err_SeparaNomes:
MsgBox Err & " - " & Error$, vbExclamation, "Função SeparaNomes"
Resume Exit_SeparaNomes
Resume
End Function


Agora no seu código fica assim:


Private Sub Comando9_Click()
'Dimensiona o objeto
Dim Fd As Object
Dim x As String

'Define a caixa de diálogo como seleção de pasta(s)
Set Fd = Application.FileDialog(1)

'Define as propriedades da caixa de diálogo
With Fd
'Nome do botão de confirmação
.ButtonName = "Abrir"
'Título da caixa de diálogo
.Title = "Selecione o local onde se encontra o arquivo..."

'Caso este método retorne Verdadeiro significa que o usuário selecionou uma pasta
If .Show Then

'Retorna o caminho da pasta para a função
SelecionarPasta = .SelectedItems(1)
x = SelecionarPasta
'SelecionarPasta = SeparaNomes(SelecionarPasta, "/", 3)
'Application.FileDialog(msoFileDialogFilePicker).InitialFileName (1)
MsgBox SeparaNomes(x, "\", 3)
End If
End With

'Finaliza o objeto
Set Fd = Nothing
End Sub

Só agora vi o tópico mas já lhe respondi no expertaccess
Cumprimentos,

Muito Obrigado Alexandre e JPaulo.

Gostaria de saber se é possivel agora ao pegar o caminho e o nome do arquivo o mesmo seja copiado do caminho de origem e seja colado um um determinado diretorio..

Adriano,

Essa pergunta caracteriza uma nova dúvida.

Nova dúvida, novo tópico.

Abra um novo tópico e exponha a dúvida, se precisar copie e cole o link deste tópico aqui (bbcode no menu "mais" no canto direito) e referencie nesta nova dúvida.

Os melhores cumprimentos.