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

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