DESMEMBRAR O PATH E O NOME DO ARQUIVO

JALEXM 07/03/2012 17:53:08
#396634
Existe alguma função no VB que seja possível separar o path do nome do arquivo?
Exemplo: C:\TESTE\PROG1.EXE separar em C:\TESTE e PROG1.EXE
Obrigado.
MARCELO.TREZE 07/03/2012 18:21:54
#396635
sim

Dim Parte() As String
Dim Arquivo As String
Dim Caminnho As String
Dim Executavel  As String
Arquivo = [Ô]C:\TESTE\PROG1.EXE[Ô]
Parte = Split(Arquivo, [Ô]\[Ô])
Executavel = Parte(UBound(Parte))
Caminho = Mid(Arquivo, 1, Len(Arquivo) - Len(Executavel))
MsgBox Executavel
MsgBox Caminho
LVFIOROT 07/03/2012 23:04:53
#396648
gosto mais assim....

          Dim Arquivo As String
        Dim Caminho As String
        Dim Executavel As String

        Arquivo = [Ô]C:\TESTE\PROG1.EXE[Ô]

        Arquivo = StrReverse(Arquivo)

        Executavel = StrReverse(Mid(Arquivo, 1, InStr(Arquivo, [Ô]\[Ô]) - 1))
        Caminho = StrReverse(Mid(Arquivo, InStr(Arquivo, [Ô]\[Ô]) + 1))

        Arquivo = StrReverse(Arquivo)

        MsgBox(Arquivo)
        MsgBox(Executavel)
        MsgBox(Caminho)
EPISCOPAL 08/03/2012 12:24:33
#396672
eu uso o do LVFIOROT, mas o do marcelo usa menos linhas de código ..... e é mais rapido tbem, a função strReverse leva uns milésimos de segundos pra ser executado, principalmente se a string for longa ...

Minha opnião
LVFIOROT 08/03/2012 12:45:39
#396674
eu acho que o split e mais custoso que o strreverse, devido ter que fazer a mesma coisa que o str (varrer a string) e alocar dinamicamente todo o conjunto de variaveis para cada pedaço.
Tópico encerrado , respostas não são mais permitidas
Voltar