MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Abrir Diretórios do Sistema Operacional

    Compartilhe
    avatar
    Jeferson de Paula
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 364
    Registrado : 06/04/2013

    Abrir Diretórios do Sistema Operacional

    Mensagem  Jeferson de Paula em Qui 10 Out 2013, 17:28

    Fala Galerinha,

    Atualmente estou precisando de uma função para abrir diversos diretórios do Windows do computador Client. Consegui um exemplo rodando na internet mas não está funcionando direito, alguém sabe me dizer o que pode estar dando errado?

    Se alguém também tiver outro exemplo prático, toda ajuda será bem vinda. Desde já agradeço a ajuda!

    Referências do Projeto Atual do Access
    [Você precisa estar registrado e conectado para ver esta imagem.]

    Código:
    Public Function MyDocuments() As String
    Dim objFSO As Object
    Dim objShell As Object
    Dim objFolder As Object
    Dim objFolderItem As Object

    Const Number = 5
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        Set objShell = CreateObject("Shell.Application")
        Set objFolder = objShell.NameSpace(Number)
        Set objFolderItem = objFolder.Self
            MyDocuments = objFolderItem.Path
    End Function
    2 Programas = C:\Users\[Utilizador]\AppData\Roaming\Microsoft\Windows\Start Menu\Programs
    5 Os Meus Documentos = C:\Users\Documents\[Utilizador]
    6 Favoritos = C:\Users\[Utilizador]\Favorites
    7 Arranque = C:\Users\[Utilizador]\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup
    8 Itens recentes = C:\Users\[Utilizador]\AppData\Roaming\Microsoft\Windows\Recent
    9 SendTo = C:\Users\[Utilizador]\AppData\Roaming\Microsoft\Windows\SendTo
    11 Menu Iniciar = C:\Users\[Utilizador]\AppData\Roaming\Microsoft\Windows\Start Menu
    13 A Minha Música =
    14 Os Meus Vídeos =
    16 Ambiente de trabalho = C:\Users\[Utilizador]\Desktop
    17 Computador = C:
    20 Fonts = C:\Windows\Fonts
    22 Menu Iniciar = C:\ProgramData\Microsoft\Windows\Start Menu
    23 Programas = C:\ProgramData\Microsoft\Windows\Start Menu\Programs
    24 Arranque = C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup
    '25 Ambiente de Trabalho Público = C:\Users\Public\Desktop
    26 Roaming = C:\Users\[Utilizador]\AppData\Roaming
    27 Printer Shortcuts =
    28 Local = C:\Users\[Utilizador]\AppData\Local
    29 Arranque = C:\Users\[Utilizador]\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup
    30 Arranque = C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup
    31 Favoritos = C:\Users\[Utilizador]\Favorites
    32 Temporary Internet Files =
    33 Cookies = C:\Users\Fernando\AppData\Roaming\Microsoft\Windows\Cookies
    34 History =
    35 ProgramData = C:\ProgramData
    36 Windows = C:\Windows
    37 System32 = C:\Windows\System32
    38 Program Files (x86) = C:\Program Files (x86)
    39 As Minhas Imagens =
    40 [Utilizador] = C:\Users\[Utilizador]
    41 SysWOW64 = C:\Windows\SysWOW64
    42 Program Files (x86) = C:\Program Files (x86)
    43 Common Files = C:\Program Files (x86)\Common Files
    45 Templates = C:\ProgramData\Microsoft\Windows\Templates
    46 Documentos Públicos = C:\Users\Public\Documents
    48 Ferramentas Administrativas =
    49 Ligações de rede =
    53 Música Pública = C:\Users\Public\Music
    54 Imagens Públicas =
    55 Vídeos Públicos =


    Cumprimentos!

    Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então que tal dar um joinha [Você precisa estar registrado e conectado para ver esta imagem.]?


    .................................................................................
    Atenciosamente
    Aldo Jeferson de Paula
    Blog Support SQL Server
    Fórum Support SQL Server

    Quem nunca ouviu alguém falando mal do Microsoft® Access? Compartilhe suas experiências e conhecimentos, clique aqui e faça seu comentário!

    Tópicos Recomendáveis
    > Kit Geográfico 2013
    > Novo na Programação do Access?
    > Curso de Access/VBA Completo
    > Conceitos Básicos em T-SQL
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12238
    Registrado : 01/03/2011

    Re: [Resolvido]Abrir Diretórios do Sistema Operacional

    Mensagem  HARYSOHN em Sab 12 Out 2013, 21:36

    Boas Jeferson..

    Lembre-se que do XP para o 7 mudam alguns endereços de pastas.

    Uma dica.. procure no respositório de códigos um exemplo de código Environ que lista os objetos do mesmo...Pastas do sistema

    Na sala de repositório temos um exemplo de browser que exibe paginas da net e pastas do computador.. inclusive bibliotecas.


    Cumprimentos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    Jeferson de Paula
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 364
    Registrado : 06/04/2013

    Re: [Resolvido]Abrir Diretórios do Sistema Operacional

    Mensagem  Jeferson de Paula em Dom 13 Out 2013, 13:38

    Valeu pela dica amigo PILOTO.

    Cumprimentos!

    Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então que tal dar um joinha [Você precisa estar registrado e conectado para ver esta imagem.]?


    .................................................................................
    Atenciosamente
    Aldo Jeferson de Paula
    Blog Support SQL Server
    Fórum Support SQL Server

    Quem nunca ouviu alguém falando mal do Microsoft® Access? Compartilhe suas experiências e conhecimentos, clique aqui e faça seu comentário!

    Tópicos Recomendáveis
    > Kit Geográfico 2013
    > Novo na Programação do Access?
    > Curso de Access/VBA Completo
    > Conceitos Básicos em T-SQL
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12238
    Registrado : 01/03/2011

    Re: [Resolvido]Abrir Diretórios do Sistema Operacional

    Mensagem  HARYSOHN em Dom 13 Out 2013, 13:45

    Lembrando, o comando Environ é muito útil para utilização pois dependendo do PC... HD's podem estar particionados a instalação do SO estar em HD que não o C:, portanto este comando previne erros quando se utiliza na instrução o caminho..

    Com o comando Environ ele pegará sempre o caminho da pasta inerente ao SO independente de onde esteja.

    Veja um exemplo:

    Verifica se o diretório existe na pasta Arquivo de programas

    If Len(Dir(Environ("PROGRAMFILES") & "\Winrar\WinRAR.EXE") & "") = 0 Then
    .....

    End If

    e também lembre-se que algumas pastas são criadas por usuário...Como Meus documentos, imagens etc.
    Portanto utiliza-se o comando environ para pegar tanto a pasta como o usuário logado

    Environ("UserName")

    Utilizando a imaginação poderá perceber que podes concatenar a pasta + usuário


    O Fórum agradece o Retorno.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Sex 28 Abr 2017, 01:24