VB6 - Realizando buscas de arquivos com paginação

Este pequeno aplicativo feito na linguagem Visual Basic 6 é um exemplo que mostra uma forma possível de encontrar arquivos em um computador local, e no final da pesquisa, apresentar os resultados em paginas.

Por exemplo, ao procurar um determino tipo de arquivo, podermos ter como resultado 50.000 arquivos, e podemos criar 50 páginas cada uma contendo 1.000 arquivos. Por padrão, cada página armazena 1000 arquivos, mas o tamanho da página pode ser definida, alterando o valor de uma propriedade no menu da aplicação.

O exemplo lista os arquivos em um controle ListView. Para os testes realizados, o código fonte funcionou razoavelmente (não testei para uma quantidade muito grande de arquivos).

O exemplo do projeto mostra a busca de arquivos (apenas arquivos não pastas) e à medida que os arquivos são pesquisados (dentro do módulo cFindFiles), criamos dinamicamente coleções para criar a página. Então, quando você terminar de pesquisar (módulo de eventos EndSearch) já criou as páginas de resultados, bastando carregar a primeira página no controle ListView.

Para obter a página de resultados podemos listá-la usando o método GetColFiles que retorna uma coleção com a lista de arquivos. Neste método, você deve enviar o número da página como um parâmetro. Por exemplo : Setembro mCFindFiles.GetColFiles xColFiles = (Número)

No exemplo, os números de página são carregados em um ComboBox, podemos clicar e enviar o ListIndex e, assim ser capaz de carregar e exibir a página.

Podemos avançar ou retroceder entre as páginas usando dois botões. Para encontrar o total de páginas se deve obter o valor via propriedade TotalPage. E para saber a página atual que está atualmente sendo consultada usamos a propriedade CurrentPage.

Abaixo vemos a janela principal da aplicação exibindo o resultado de uma busca e quantidade de páginas geradas:

O projeto também usa algumas classes para dar suporte às operações.

Tudo muito simples do jeitão do Visual Basic.

Pegue o projeto completo aqui:   BuscarArquivosVB6.zip

Veja os Destaques e novidades do SUPER CD VB 2013 (sempre atualizado) : clique e confira !

Quer migrar para o VB .NET ?

Veja mais sistemas completos para a plataforma .NET no Super DVD .NET , confira...

Quer aprender C# ??

Chegou o Super DVD C# 2013 com exclusivo material de suporte e vídeo aulas com curso básico sobre C#.

João 12:29 A multidão, pois, que ali estava, e que a ouvira, dizia ter havido um trovão; outros diziam: Um anjo lhe falou.

João 12:30 Respondeu Jesus: Não veio esta voz por minha causa, mas por causa de vós.

João 12:31 Agora é o juízo deste mundo; agora será expulso o príncipe deste mundo.

João 12:32 E eu, quando for levantado da terra, todos atrairei a mim.

Referências:

José Carlos Macoratti