Ir para o conteúdo
freaklori

[VB.net] Listar Ficheiros (Tecnologia LINQ)

Mensagens Recomendadas

freaklori    0
freaklori

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.

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


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade