Explorer (quase) completo

Vez ou outra alguem pensa na possibilidade de se ter um explorer dentro de uma aplicação Access. Hoje deixo um exemplo que eu criei para essa finalidade. O exemplo está dividido em três abas, a saber:

1 - Aba Pesquisar: fornece opções de pesquisa por arquivos ou pastas, podendo retornar apenas arquivos ou apenas pastas e tambem filtra por tipo de arquivo. A lista de tipos de arquivos tambem é filtrada de acordo os arquivos presentes na pasta;

2 - Aba Criar: nessa aba estão opções para se criar pastas ou arquivos dentro do diretório selecionado. Os tipos de arquivos que podem ser criados a princípio, são: accdb, doc, docx, mdb, rtf, txt, xls e xlsx. Para cada tipo de arquivo tem uma função específica que permite a sua criação. Novos tipos podem ser incorporados caso tenha uma biblioteca que possa ser usada para se criar o objeto certo para o tipo pretendido;

3 - Aba Editar - oferece funções para excluir, copiar, renomear e mover pastas e arquivos.

Alem das funções acima, contem uma área para visualização de informações sobre o item selecionado. Quando se seleciona um drive, são exibidas uma imagem de acordo o tipo do drive e informações sobre o espaço ocupado pelos arquivos dessa pasta. Quando selecionado uma pasta, exibe a imagem de uma pasta e informações sobre a mesma. Quando selecionado um arquivo, exibe informações sobre o mesmo, bem como a imagem, quando for um arquivo de imagem. Um arquivo pode ser aberto ao clicar duas vezes no seu nome.

O exemplo não está totalmente acabado. Pode ser personalizado para atender a cada tipo de necessidade.

Espero que seja útil.

Obrigado e bem lembrado. Esqueci de mencionar que, dependendo da versão utilizada, pode ser necessário alterar a versão de alguma referência ou excluir alguma AUSENTE, embora eu tenha testado aqui nas versões do Access XP, 2007, 2010 e no runtime do 2007 utilizando Windows XP e o beta do Windows 8 em máquinas virtuais e testei no Windows 7 como sistema principal.

Nossa!! Muito bom! Muito obrigado por compartilhar!!

É possível postar o arquivo convertido para a versão 2000 ?

Abraço

Parabéns Criquio, muito bom.

Obs.: Aqui ficou um tanto lento ao clicar nas pastas.

Obrigado pela gentileza de disponibilizar a versão 2000.

Ao tentar exexcutar o programa ocorre o erro:

Erro de compilação : Método ou membro de dados não encontrado.

Pesquisando na internet encontrei a informação que esse método só foi implementado a partir da versão 2002.

Se alguém quiser adaptar para a versão 2000, um ponto de partida pode ser o link abaixo:

AddItem and RemoveItem for Listboxes in Access 97/2000

http://accessblog.net/2005/11/additem-and-removeitem-for-listboxes.html