• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

freaklori

[VB.net] Listar Ficheiros (Tecnologia LINQ)

4 mensagens neste tópico

Viva,

Vou partilhar com vocês um simples projecto que lista simplesmente os ficheiros de uma directoria.

É uma coisa simples mas tem por trás algo novo da FrameWork 3.5, tecnologia LINQ

Aqui fica o código:


Imports System.Data.Linq
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = CurDir()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim FolderDialog As New FolderBrowserDialog
        If FolderDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = FolderDialog.SelectedPath
        End If
    End Sub

    Private Sub bListar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bListar.Click
        Dim Ficheiros = From Ficheiro In My.Computer.FileSystem.GetFiles(TextBox1.Text) Select Ficheiro
        Dim InfoFicheiros = From InfoFicheiro In Ficheiros Select My.Computer.FileSystem.GetFileInfo(InfoFicheiro)
        Dim Infos = From InfoFile In InfoFicheiros _
                    Order By InfoFile.Name
        DataGridFiles.DataSource = Infos.ToList
    End Sub
End Class

Especial atenção ao evento do botão listar.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora