[Resolvido]Separar textos

Boas pessoal,

Estou a utilizar a função do mestre JPaulo para separar textos qualquer, segue caso não tenham conhecimento.

Código:

Public Function SeparaNomes(strFrase As String, QualSimboloVaiPartir As String, QualParteVaiSeparar As Integer) As String
'By@JPaulo2009 Dezembro
'Função separa uma frase pelas virgulas ou outro símbolo
'Exemplo: SeparaNomes("Esta é uma função\feita para separar palavras.", "\", 1)
'O 1 vai mostrar a primeira parte da frase, "Esta é uma função"

Dim strArray() As String
Dim strParteInteira As Integer

On Error GoTo Err_SeparaNomes

strArray = Split(strFrase, QualSimboloVaiPartir)

strParteInteira = UBound(strArray) + 1

If strParteInteira = 0 Then
SeparaNomes = strFrase
Exit Function
End If

If QualParteVaiSeparar = 0 Then
SeparaNomes = strFrase
Exit Function
ElseIf QualParteVaiSeparar < strParteInteira Then
QualParteVaiSeparar = strParteInteira
End If

SeparaNomes = Trim(strArray(QualParteVaiSeparar - 1))

Exit_SeparaNomes:
Exit Function

Err_SeparaNomes:
MsgBox Err & " - " & Error$, vbExclamation, "Função SeparaNomes"
Resume Exit_SeparaNomes
Resume

Bom a questão é que, posso não estar sabendo utilizá-la corretamente ou talvez não seja o caso de estar utilizando-a.
Preciso separar um determinado local exemplo: "C:\Users\Usuário\Desktop\Primeira Pasta\Segunda Pasta\Terceira Pasta\Arquivo.txt"
E o que preciso pegar é apenas o que vem antes do arquivo, "C:\Users\Usuário\Desktop\Primeira Pasta\Segunda Pasta\Terceira Pasta\"
Não sera sempre que estará neste formato, pode haver mais pastas.
Se houver alguma forma de utilizar esta função para separar baseando-me em "\" do ultimo para traz agradeço se me falarem.

Boa tarde,

Veja se código abaixo serve?

Para teste cria 2 campos (CampoComCaminhoCompleto + CampoComCaminhosemnomeficheiros) e um botão (Command2).

Private Sub Command2_Click()
CampoComCaminhoCompleto = left(CampoComCaminhosemnomeficheiros, InStrRev(CampoComCaminhosemnomeficheiros, "\") + 0)
End Sub


Abraço...

Boas Roberto,

Muito obrigado, funcionou perfeitamente para o que eu esperava. Não funcionou a funcionalidade, mais isto é outro caso XD

Grato.

Não havia fechado

Obrigado pelo retorno.....

O Forum agradece...

Abraço..