itos

[luizsnpjr 0]

Sabe quando navegamos na net e tem no menu a opção favoritos e quando você clica nele ele te mostra todos os seus Favoritos em forma de sub-Menu?Então, como faço pra fazer com que em meu programa tenha um menu com Favoritos e quando clicado nele, ele apresente os favoritos do PC da pessoa onde se encontra o Programa?

[Eledio de Souza Junior 0]

Boa Tarde

 

Olha não é muito difícil não, pra usuários dos win9x é mais simples do que os das versões mais atuais, vou explicar porque:

 

A idéia consiste em você "ler" o diretório atrás dos arquivos de atalho, e se caso queira tb tratar as pastas contidas no diretório, no win9x é fácil pq o diretório dos favoritos se encontra dentro da pasta do windows (ex: "C:\WINDOWS\FAVORITOS"), já nos outros windows está dentro da pasta do usuário logado (ex: C:\Documents and Settings\Administrador\Favoritos), mas não é tão difícil, basta saber o usuário logado, para isso use o Environ("USERNAME").

 

Qualquer dúvida é só postar novamente.

[luizsnpjr 0]

ok, mas qual o código que devo executar para capturar os favoritos, o shell ? ou outro?

[Luizgrs 0]

Para listar todos os arquivos que estiverem em todas as pastas dos Favoritos faça assim:

Primeiro vá em references e habilite o Windows Script Host Object Model

Depois usa o seguinte código:

Dim fso As New FileSystemObjectPrivate Sub Form_Load()Dim wsh As New WshShellLerPasta fso.GetFolder(wsh.SpecialFolders(12))End SubPublic Sub LerPasta(pasta As Folder)Dim subpasta As FolderFor Each subpasta In pasta.SubFolders    LerPasta fso.GetFolder(subpasta.Path)NextDim arquivo As FileFor Each arquivo In pasta.Files    MsgBox arquivo.PathNextEnd Sub

Deve funcionar em qualquer sistema operacional windows.

[luizsnpjr 0]

Ok muito obrigado.