[Resolvido]Abrir Diretórios do Sistema Operacional

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

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 ?

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.

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 ?

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.