[Resolvido]Capturar nome e formato de um arquivo

Olá pessoal!

Estou com a seguinte duvida:

Eu inseri o codigo abaixo para capturar o caminho de uma imagem e agora preciso selecionar apenas o nome do arquivo e o seu formato. Alguém sabe como fazer isso?

Private Sub cmdFoto_Click()
Dim strCaminho As String, strPastaInicial As String
strPastaInicial = "C:\Meus Documentos"
strCaminho = Buscar(Me.hWnd, "Inserir foto", strPastaInicial, _
"Arquivos gráficos (*.bmp; *.gif; *.jpg)" & vbNullChar & "*.bmp; *.gif; *.jpg")
If Len(strCaminho) > 0 Then
Me.txtFoto = strCaminho
Me.Foto.Picture = Me.txtFoto
Me.cmdFoco.SetFocus
End If
End Sub

Desde já, obrigado!

Tente usar o Split:

Dim Cortar As Variant
Cortar = Split(NomeDoCampo, "\")
Me.NomeCampoCaminho = UBound(Cortar)

Criquio,

Esta retornando valor numérico. Em vez do nome do arquivo retornou o numero 5. Tem alguma configuração que eu devo fazer no campo?

Obrigado!

Tente assim:

Dim Cortar As Variant, Parte As Integer

Cortar = Split(CaminhoCompleto, "\")
            For Parte = 0 To UBound(Cortar)
               CaminhoReduzido = Cortar(Parte)
            Next Parte

Criquio,

Agora funcionou perfeitamente.

Cara, como voces não economizam nas ajudas, eu não posso economizar nos agradecimentos...

Muito obrigado por mais essa grandiosa ajuda.


Abraço!