[Resolvido] Access 2007 - Preencher ListBox C/ Nome Ficheiro

[nioxys]

Olá

O seguinte código abre uma janela de diálogo que me permite seleccionar um ou mais ficheiros e listar esses mesmo ficheiros numa listbox, no entanto o que aparece na listbox é o caminho do ficheiro, por exemplo, C:\Pasta1\Pasta2\Ficheiro.pdf. Alguém sabe se é possível listar apenas o nome do ficheiro e a extensão? Ou seja, Ficheiro.pdf, por exemplo.

Código:

Private Sub btnSelect()
Dim f    As Object
Dim varFile As Variant

Set f = Application.FileDialog(3)

f.AllowMultiSelect = True

If f.Show = True Then
        For Each varFile In f.SelectedItems
            Me.Lboxfile.AddItem varFile
         Next
End If

End Sub

[nioxys]

Depois de muita pesquisa e de uma ajuda preciosa consegui chegar ao resultado pretendido, bastou para isso substituir,

Citar:Me.Lboxfile.AddItem varFile

por

Citar:Me.Lboxfile.AddItem Mid(varFile, 1 + InStrRev(varFile, "\"))