Access inicio | | | | | |
Olá,
Seja Bem Vindo ao Blog.

Conecte-se ou registre-se e utilize gratuitamente este equipamento, temos exemplos referente a criação de banco de dados e desenvolvimento de softwares e programas utilizando o Microsoft Access.


Administração do Blog AccessDoProgramador.

Parametrização de caminhos das pastas com usuário win logado

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

18082011

Mensagem 

Parametrização de caminhos das pastas com usuário win logado






Seção de origem no Blog: Diretório, Pastas & Parametrização


Exemplo de uso do Syspen.Par, carregando aplicando caminhos de pastas do windows com o usuário logado


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

Assim a Variável caminho assume o valor:

C:\Users\Administrador\Pictures\




'********************************************************************************
'Código completo utilizado nesta solução com o Syspen.Par
'********************************************************************************




Sub ActualizaLista()
Parametros_de_Inicializacao "SysPen.par"
Dim VarCaminho As String
Dim StrUser As String
Dim
StrPasta As String

'************************************************************************************************
'Crio a Variável StrUser que receberá o usuário logado no Windows
'Crio a Variável Pasta que assumirá o valor da pasta desejada
'Crio a variável Caminho que reberá duas variávei púbblicas do Syspen.Par + nome do Usuário Logado
'Aplico a variácel Caminho no lugar onde vai o caminho completo da pasta a ser aberta
'**************************************************************************************************

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

Dim objFS, objPasta, objFicheiro
Set objFS = CreateObject("Scripting.FileSystemObject")
'Set objPasta = objFS.GetFolder("C:\Users\Administrador\Pictures\FotosVeiculos")    
Set objPasta = objFS.GetFolder(VarCaminho)
   ListaFicheiros.RowSource = ""
   For Each objFicheiro In objPasta.Files
       ListaFicheiros.AddItem objFicheiro.Name
   Next
End Sub



Perfect!

avatar
Harysohn
Facilitador
Facilitador

Brasil


Voltar ao Topo Ir em baixo

- Tópicos similares
Compartilhar este artigo em: diggdeliciousredditstumbleuponslashdotyahoogooglelive

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum