گرفتن اطلاعات فایل ها

Imports System.IO

Dim dir As New DirectoryInfo("c:\")

For Each files As FileInfo In dir.GetFiles()
     ListBox1.Items.Add(files.Name)
Next