[Visual Basic] Add All Files in Folder Using Folder Browser Dialog

Hi mọi người, hôm nay HungCoder.Com xin chia sẽ cho mọi người một thủ thuật cũng khá hay, nhưng thủ thuật này thì lại có khá lâu rồi. Đó là hiển thị tên files trong thư mục nào đó mà bạn trỏ vào :D

Với hình ảnh bên trên các bạn cũng nhận ra rồi chứ, nhìn qua thì nó không có gì cả, nhưng nếu các bạn tìm hiểu thêm và quét thêm 1 số phần từ trong windows nhờ code thì việc hiển thị này sẽ giúp ích cho các bạn nhận biết dữ liệu đang quét trong thư mục nào đó có gì đấy :D 

  FULL CODE

  Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If FolderBrowserDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            ListBox1.Items.Clear()
            Dim grade As New IO.DirectoryInfo(FolderBrowserDialog1.SelectedPath)
            Dim infile As IO.FileInfo() = grade.GetFiles()
            Dim fLinfo As IO.FileInfo
            For Each fLinfo In infile
                ListBox1.Items.Add(fLinfo)
            Next
        Else
        End If
    End Sub
End Class
  

Xem video demo tại đây : Youtube
DOWNLOAD
 

 Chúc các bạn thành công.