Função de "recortar" nomes

[Joffre Mota 0]

Function GetNomeSchema(NomeCompletoDoArq As String) As String
   For lCount = Len(NomeCompletoDoArq) - 17 To 1 Step -1
       If Mid(NomeCompletoDoArq, lCount, 1) = "\" Then
           GetNomeSchema = Mid(NomeCompletoDoArq, lCount + 1, Len(NomeCompletoDoArq) - lCount - 19)
           Exit Function
       End If
   Next lCount
End Function

 

Não fui eu quem escreveu a função acima, mas o objetivo dela é o seguinte:

 

Pegar o caminho do arquivo e colocar dentro de NomeCompletoDoArq.

C:\GDT_Folders\Backups\Versao\Ora9\M_ORA9_09_201103221310.DMP

E recortar tudo o que estiver antes da última "\" e tudo o que estiver depois do último "_".

Feito isso, terei o nome da base de dados que desejo restaurar.

 

Porém, a função está recortando os dois últimos caracteres do nome da base (ao invés de pegar M_ORA9_09, está pegando apenas M_ORA9_.

 

Alguém poderia me dar uma luz de como resolver isso?

[Mário Monteiro 179]

o numero de caracteres está errado

 

em vez de 19 seria 17

[Joffre Mota 0]

Já tentei e não adiantou.

 

Obrigado pela resposta.

[Mário Monteiro 179]

que erro deu agora?