[resolvido] Extrair caminho

Moderador: Avelino Sampaio

Avatar do usuário
PauloMaia
Mensagens: 40
Registrado em: 17 Abr 2017, 21:22
Contato:

[resolvido] Extrair caminho

Mensagempor PauloMaia » 05 Jul 2017, 11:23

Tenho o seguinte caminho "de nomes que podem variar, para as pastas diretório e nome e extensão de arquivo"
Ex. C:\PastaPrincipal\Pasta1\Pasta2\PastaProjeto\Arquivo.accdb
Ex. C:\PastaPrincipal\Pasta1\Pasta2\PastaProjeto\Arquivo.accde

Preciso de uma função "comando" que extraia desta escrita que esta armazenada em um campo da tabela ( tblCaminho ) somente o caminho das pastas , desconsiderando o nome do arquivo no final. ficando assim ;

strCaminho = C:\PastaPrincipal\Pasta1\Pasta2\PastaProjeto\

Este é o valor que preciso na Variável " strCaminho " , C:\PastaPrincipal\Pasta1\Pasta2\PastaProjeto\

Qual é a Solução. ?

.......
Att.
Paulo Maia

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Avelino Sampaio
Mensagens: 2102
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Extrair caminho

Mensagempor Avelino Sampaio » 05 Jul 2017, 12:11

Paulo

experimente:

strcaminho = left(strCaminho,inStrRev(strCaminho,"\"))

Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Avatar do usuário
PauloMaia
Mensagens: 40
Registrado em: 17 Abr 2017, 21:22
Contato:

Re: Extrair caminho

Mensagempor PauloMaia » 05 Jul 2017, 15:20

OK, Avelino

Essa linha de cod. pega a primeira barra da direita para esquerda , OK

Só para saber , a casos que preciso ,, se eu precisar pegar a segunda barra da direita para esquerda ( desconsiderando assim o arquivo e a ultima pasta )

Deste caminho; C:\PastaPrincipal\Pasta1\Pasta2\PastaProjeto\Arquivo.accde
..extrair assim; C:\PastaPrincipal\Pasta1\Pasta2\


strCaminho = C:\PastaPrincipal\Pasta1\Pasta2\

Este é o valor que preciso na Variável " strCaminho " , C:\PastaPrincipal\Pasta1\Pasta2\


---------------------------------------------------Essa é Muito importante------------------------------------------------------------

PEGAR A 3ª barra sempre contando da Esquerda para Direita. É possivel ?
assim independente da minha rota eu sempre terei o caminho raiz de minha aplicação.
ficando assim.....

Deste caminho; C:\PastaPrincipal\Pasta1\Pasta2\PastaProjeto\Arquivo.accde
..extrair assim; C:\PastaPrincipal\Pasta1\

C:\PastaPrincipal\Pasta1\

strCaminho = C:\PastaPrincipal\Pasta1\

Este é o valor que preciso na Variável " strCaminho " , C:\PastaPrincipal\Pasta1\

* Sempre Extraído da Esquerda para Direita .

como fica a linha de cod ?

------------------------------------------------------------A que mais preciso----------------------------------------------------------
Mas não sei cria-la.


Obrigado.

.......
Att.
Paulo Maia

Avatar do usuário
Avelino Sampaio
Mensagens: 2102
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Extrair caminho

Mensagempor Avelino Sampaio » 06 Jul 2017, 11:44

Paulo

copie esta função para um modo global:

Código:
Public Function fncCaminho(strPath$) As String
Dim k
k = Split(strPath, "\")
fncCaminho = k(0) & "\" & k(1) & "\" & k(2) & "\"
End Function


utlize assim;

strcaminho = fncCaminho(strCaminho)

Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
PauloMaia
Mensagens: 40
Registrado em: 17 Abr 2017, 21:22
Contato:

Re: Extrair caminho

Mensagempor PauloMaia » 06 Jul 2017, 15:08

OK, Avelino !

FUNCIONOU

Essa função pega a 3º barra da Esquerda para a Direita . O que Precisava Mesmo.


Muito Obrigado.

.......
Att.
Paulo Maia

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Consultas”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 2 visitantes