[Resolvido]Selecionar ficheiro

Bom dia a todos,

Após algumas tentativas e pesquisas na net, não consigo num FileDialog selecionar só o nome do ficheiro que estou a selecionar.
No campo que desejo o nome do ficheiro aparece o caminho completo.
Há forme de contornar isso???

Codigo que estou usando:

Private Sub Command315_Click()
MsgBox "Selecione o ficheiro Excel que se encontra na pasta desejada."
CurrentDb.Execute "delete * from Folha1"
Dim fd As Object
Dim x As String
Set fd = Application.FileDialog(1)
With fd
.ButtonName = "Abrir"
.Title = "Selecione o local onde se encontra o arquivo..."
If .Show Then
SelecionarPasta = .SelectedItems(1)
x = SelecionarPasta
Text359.Value = x 'Aqui quero só o nome do ficheiro selecionado e não o caminha completo
MoverFicheiro
CurrentDb.Execute "INSERT INTO [Folha1] SELECT * FROM [Folha7]"
DoCmd.Requery
End If
End With
Set fd = Nothing
End Sub

Obrigado

Bom dia, deseja separar apenas o caminho sem o nome do arquivo?


Cumprimentos.

Bom dia,

Queria apenas o nome do ficheiro selecionado no FileDialog e não o caminho completo.

Obrigado

Coloque aqui um exemplo do caminho completo citando qual pasta deseja extrair o nome.

Cumprimentos.

bom dia,

o caminho utilizado é "\\fileserver\pos-venda\Partilha Pos-Venda\APLICAÇÕES ROB\BD Report para Cliente\PDF\301083255\Excel -TC5929-F1-015-301083255-TETRIS.xlsx"

obrigado

De qual pasta deseja que o nome seja extraído?

Cumprimentos.

A pasta a qual desejo extrair o ficheiro de Excel varia, por isso é que estou a tentar utilizar a FileDialog.
Atraves do FileDialog consigo colocar o caminho do ficheiro num campo ("\\fileserver\pos-venda\Partilha Pos-Venda\APLICAÇÕES ROB\BD Report para Cliente\PDF\301083255\Excel -TC5929-F1-015-301083255-TETRIS.xlsx"), mas queria que no campo só aparecesse o nome do ficheiro Excel ("Excel -TC5929-F1-015-301083255-TETRIS.xlsx").


Obrigado

Veja código para extrair o nome e o caminho separadamente


Extrai o nome... Observe que substituirá a variável caminho pela sua variável que contenha o caminho
StrArquivo = Mid(Caminho, InStrRev(Caminho, "\") + 1)

Aqui colocará em uma variável apena so caminho
StrCaminho = Left(Caminho, (Len(Caminho) - Len(StrArquivo)))

Cumprimentos.

Obrigado pelo tempo que me tens disponibilizado, mas a variavel que me deste é para introduzir no codigo que postei??? Se não fore podes me dizer ao certo como faço ou caso seja o codigo k postei podes altera-lo se faz favor que os meus conhecimentos não são muitos.

Obrigado

Qual variável armazena o caminho completo?

Cumprimentos.

Ola,

Desculpa a minha ignorância, mas onde eu vejo o caminho que selecionei no FileDialog é no campo "Text359.value" que está no código abaixo..
No campo "Text359.value" após clicar na FileDialog o campo fica com o caminho completo "\\fileserver\pos-venda\Partilha Pos-Venda\APLICAÇÕES ROB\BD Report para Cliente\PDF\301083255\Excel -TC5929-F1-015-301083255-TETRIS.xlsx" e o que quero separar é o ficheiro que se encontra a negrito no caminho.


Private Sub Command315_Click()
MsgBox "Selecione o ficheiro Excel que se encontra na pasta desejada."
CurrentDb.Execute "delete * from Folha1"
DoCmd.Requery
Dim fd As Object
Dim x As String
Set fd = Application.FileDialog(1)
With fd
.ButtonName = "Abrir"
.Title = "Selecione o local onde se encontra o arquivo..."
If .Show Then
SelecionarPasta = .SelectedItems(1)
x = SelecionarPasta
Text359.Value = x 'Aqui quero só o nome do ficheiro selecionado e não o caminha completo
'ApagarFicheiro
MoverFicheiro
CurrentDb.Execute "INSERT INTO [Folha1] SELECT * FROM [Folha7]"
DoCmd.Requery
End If
End With
Set fd = Nothing
End Sub

Private Sub Command315_Click()
Dim StrCaminho as String
Dim StrArquivo as String
MsgBox "Selecione o ficheiro Excel que se encontra na pasta desejada."
CurrentDb.Execute "delete * from Folha1"
DoCmd.Requery
Dim fd As Object
Dim x As String
Set fd = Application.FileDialog(1)
With fd
.ButtonName = "Abrir"
.Title = "Selecione o local onde se encontra o arquivo..."
If .Show Then
SelecionarPasta = .SelectedItems(1)
x = SelecionarPasta
Text359.Value = x 'Aqui quero só o nome do ficheiro selecionado e não o caminha completo
StrArquivo = Mid(x, InStrRev(x, "\") + 1)
StrCaminho = Left(x, (Len(x) - Len(StrArquivo)))
MsgBox StrArquivo
MagBox StrCaminho
'ApagarFicheiro
MoverFicheiro
CurrentDb.Execute "INSERT INTO [Folha1] SELECT * FROM [Folha7]"
DoCmd.Requery
End If
End With
Set fd = Nothing
End Sub


Cumprimentos.

Bom dia,

Ficou a funcionar, valeu pela ajuda.

Muito obrigado   

O Förum agradece o Retorno.