Public Class Form1
    Private Sub GetFileInfos(ByVal Folder As String)
        Dim flist As New List(Of String)(Directory.GetFiles(Folder, "*.*", _
          SearchOption.AllDirectories))
        For Each s As String In flist
            Dim fi As New FileInfo(s)
            ListBox1.Items.Add(fi.Name)
            ListBox1.Items.Add(Path.GetDirectoryName(s))
            ListBox1.Items.Add(fi.LastWriteTime.ToString)
            ListBox1.Items.Add(fi.Length.ToString)
            ListBox1.Items.Add("------------")
        Next
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        GetFileInfos("C:\W-Intern")
    End Sub
End Class