.NET - Procurando arquivos com LINQ

O que é LINQ ?

- LINQ - Language integrated Query - é um conjunto de recursos introduzidos no .NET Framework 3.5 que permitem a realização de consultas diretamente em base de dados , documentos XML , estrutura de dados , coleção de objetos ,etc. usando uma sintaxe parecida com a linguagem SQL.

Este artigo mostra como criar uma pequena aplicação que localiza arquivos e apresenta algumas informações sobre eles usando o Visual Basic 2010 e LINQ.

Abra o Visual Basic 2010 Express Edition e crie um novo projeto (File-> New Project) do tipo Windows Forms Application com o nome ConsultaArquivos;

No formulário form1.vb inclua os seguintes controles :

Conforme o leiaute da figura abaixo:

Vamos definir o código do formulário começando com a definição do namespace:

Imports System.IO

No evento Click do botão - btnPasta - que irá permitir ao usuário selecionar uma pasta no sistema local, inclua o código abaixo:

  Private Sub btnPasta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPasta.Click
        ' cria um objeto FolderBrowserDialog
        Dim FolderBrowserDialog1 As New FolderBrowserDialog

        ' cria uma janela de dialogo
        With FolderBrowserDialog1
            ' Desktop é a pasta rais no dialogo
            .RootFolder = Environment.SpecialFolder.Desktop
            ' seleciona a pata c:\ na entrada
            .SelectedPath = "c:\"
            ' exibe uma mensagem ao usuário
            .Description = "Selecione uma pasta"
            If .ShowDialog = DialogResult.OK Then
                ' atribui a seleção da pasta ao textbox
                txtDiretorio.Text = .SelectedPath
            End If
        End With
    End Sub

No código estamos usando a classe FolderBrowserDialog que Solicita ao usuário para selecionar uma pasta.

Essa classe fornece uma maneira de solicitar ao usuário para procurar, criar e, eventualmente, selecionar uma pasta. Use essa classe quando você quer permitir que o usuário selecione pastas e não arquivos. A navegação nas pastas é feita por meio de um controle de árvore. Somente as pastas do sistema de arquivos podem ser selecionadas; não é possível selecionar pastas virtuais.

Normalmente, após a criação de uma nova instância da classe FolderBrowserDialog, você pode definir a RootFolder para o local a partir do qual você começa a navegar. Opcionalmente, você pode definir o SelectedPath em um caminho absoluto de uma subpasta de RootFolder que será selecionada inicialmente.

Você também pode definir a propriedade Description para fornecer instruções adicionais ao usuário. Finalmente, chame o método ShowDialog para exibir a caixa de diálogo ao usuário. Quando a caixa de diálogo for fechada e a caixa de diálogo resultante da ShowDialog for DialogResult.OK, o SelectedPath será uma cadeia de caracteres que contém o caminho para a pasta selecionada.

No exemplo atribuímos esta valor a caixa de texto txtDiretorio.

No evento Click do botão - Exibir Arquivos - inclua o código que usará a consulta LINQ exibindo informações sobre eles no datagridview:

Private Sub btnExibirArquivos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExibirArquivos.Click
        Dim dir As DirectoryInfo = New DirectoryInfo(txtDiretorio.Text)

        If txtDiretorio.Text = String.Empty Then
            Dim resultado = From arquivo In dir.GetFiles()
                                    Order By (arquivo.Extension)
                                    Select New With {arquivo.Name, arquivo.Extension, arquivo.Length, arquivo.FullName}
            gdvDetalhes.DataSource = resultado.ToList
        Else
            Dim resultado = From arquivo In dir.GetFiles()
                                     Where arquivo.Name.ToLower().Contains(txtFiltro.Text.ToLower())
                                     Order By (arquivo.Extension)
                                     Select New With {arquivo.Name, arquivo.Extension, arquivo.Length, arquivo.FullName}
            gdvDetalhes.DataSource = resultado.ToList
        End If

    End Sub

Neste código estamos efetuando duas consultas LINQ , no caso estamos usando LINQ to SQL, com base na informação do usuário:

1- A primeira exibe todos os arquivos da pasta ordenados pela extensão:

Dim resultado = From arquivo In dir.GetFiles()
                         Order By (arquivo.Extension)
                         Select New With {arquivo.Name, arquivo.Extension, arquivo.Length, arquivo.FullName}

2- A segunda exibe os arquivos da pasta com base no filtro informado na caixa de texto txtFiltro ordenados pela extensão:

Dim resultado = From arquivo In dir.GetFiles()
                        Where arquivo.Name.ToLower().Contains(txtFiltro.Text.ToLower())
                        Order By (arquivo.Extension)
                        Select New With {arquivo.Name, arquivo.Extension, arquivo.Length, arquivo.FullName}

Perceba que a lógica da declaração esta invertida em relação a usada na linguagem SQL.

SQL  Select <info>From <fonte>
LINQ  From <fonte> Select <info>

Ambas as consultas LINQ To SQL iniciam com a cláusula From e em seguida o operador de condição Where depois ordenação com Order By e, no final o operador de seleção Select.

Um dos motivos desta inversão de ordens é o uso recurso IntelliSense, pois quando você indica primeiro a origem dos dados ele pode mostrar as listas de membros de tipos nos objetos em sua coleção. Outro motivo , segundo Anders Hejlsberg , seria que esta ordem esta mais próxima da nossa lógica de pensamento. Quando você digita uma instrução SQL iniciando com Select na verdade você já esta pensando na origem dos dados , condições , agrupamentos. etc.

A cláusula From é a mais importante do LINQ To SQL pois é usada em todas as consultas. Uma consulta deve sempre começar com From. (O Select pode estar implícito o From não.)

Poderíamos exibir mais informações sobre os arquivos como LastAccessTime, LastWriteTime, CreationTime, IsReadyOnly, etc. bastando para isso definirmos isso na cláusula Select new with;

Obs: A cláusula new na instrução SELECT esta criando objetos anônimos definidos após a cláusula With.

Executando o projeto iremos obter:

Pegue o projeto completo aqui: ConsultaArquivos.zip

Slm 128:1 Bem-aventurado todo aquele que teme ao Senhor e anda nos seus caminhos.

Slm 128:2 Pois comerás do trabalho das tuas mãos; feliz serás, e te irá bem.

Slm 128:3 A tua mulher será como a videira frutífera, no interior da tua casa; os teus filhos como plantas de oliveira, ao redor da tua mesa.

Slm 128:4 Eis que assim será abençoado o homem que teme ao Senhor.

Slm 128:5 De Sião o Senhor te abençoará; verás a prosperidade de Jerusalém por todos os dias da tua vida,

Slm 128:6 e verás os filhos de teus filhos. A paz seja sobre Israel.

Referências:

José Carlos Macoratti