[Resolvido]Aplicando caminho da Biblioteca do Windows via Arquivo de Parametros

Bem Amigos.. tenho no repositório um exemplo de arquivo externo de parametros, podendo ser repassado ao codigo os textos contidos nele...

Exemplo:

No arquivo de parametros tenho a seguinte linha
DirImagens:=C:\Users\Administrador\Pictures\Fotos Detentos\

Significa que se no código eu aplicar o comando.. DirImagens em alguma variável...
Esta variável assumirá o valor dessa linha, ou seja:

********************************************************************

Dim VarCaminho As String

VarCaminho = DirImagens
********************************************************************

Então VarCaminho terá o valor: C:\Users\Administrador\Pictures\Fotos Detentos\

Pois bem... preciso lançar o mesmo caminho no arquivo de parametros, porem deixando o usuário condicionado ao Logon do windows..

Algo assim:
DirImagens:=C:\Users\" & Environ("UserName") & "\AppData\Roaming\Microsoft\Windows\Libraries\Pictures.library-ms"


pergunto...

Se na minha variável eu aplicar o DirImagens..

1 - Ela assumira o valor dessa linha + usuário logado?

2 - Como checar isso..
como carregar essa variável depois checar qual o valor que ela assumiu?


Se puderem ajudar fico grato

Substitua VarCaminho pelo nome de um campo ou uma msgbox.

Ok Amigão.. ela leu o texto no Sypen.Par..

Mas o texto não traduziu a expressão do usuário do windows..

O que fazer?

Resolvi Assim..

No syspen.Par carreguei o Inicio e o Final do Caminho

DirUser:=C:\Users\
DirUserFinal:=\AppData\Roaming\Microsoft\Windows\Libraries\Pictures.library-ms

E no módulo do Form:

'**************************************
Carreguei o usuário em uma Variável (StrUser)
e na variável caminho Juntei as 3 Variáveis:
DirUser + StrUser + DirUserFinal

Dessa forma ele carregou as expressões inicial e final e aplica o usuário logado no intermédio das duas expressões
'******************************************

Parametros_de_Inicializacao "SysPen.par"
Dim VarCaminho As String
Dim StrUser As String

StrUser = VBA.Environ("UserName")
VarCaminho = DirUser & StrUser & DirUserFinal

Perfect!

Saudações Amigão

Ops!! Resolvido

Ótimo

Boa solução não?

Amigo Criquio como fazer essa substituição para que o comando leia a variável?


Set objPasta = objFS.GetFolder("C:\Users\Administrador\Pictures\FotosVeiculos")

Set objPasta = objFS.GetFolder("VarCaminho")

Consegui Assim:


Set objPasta = objFS.GetFolder(VarCaminho)