Caminho de arquivos

[Lucas Conceição]

Bom dia a todos,

Estou precisando de uma ajudinha com uma aplicação que estou desenvolvendo em VBA no AutoCAD.

Eu tenho um código:

Private Sub CommandButton3_Click()

Dim nome As String
Dim nomeA As String
Dim i As Integer
Dim cont As Integer
Dim armazena As Integer

CommonDialog1.FileName = ""
CommonDialog1.MaxFileSize = 32000
CommonDialog1.Filter = "Files |*.dwg;*.dwf;*.tiff;*.txt"
CommonDialog1.FilterIndex = 1
CommonDialog1.DialogTitle = "Selecione o Desenho"
CommonDialog1.CancelError = False
CommonDialog1.ShowOpen

nome = CommonDialog1.FileName
For i = 0 To nome.Length

Next i

ListBox1.AddItem (nome)
ListBox3.AddItem (nome)
TextBox1.Text = nome

End Sub

Como vocês podem ver ele adiciona o caminho do arquivo pro listbox1, listbox3 e pro TextBox1,

O problema é que eu preciso que o que aparece nos listBoxes e no TextBox seja somente o nome do arquivo e não o caminho inteiro.

Por exemplo: O que está aparecendo -> D:\Lucas\Dwg Files99534.dwg

O que precisa aparecer -> 099534.dwg

Obrigado desde já.

Qualquer dúvida que eu possa ajudar estarei a disposição também. :)