Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim path As String = "C:\Windows\Internet Logs\"
Dim di As New System.IO.DirectoryInfo(path)
Dim fi() As System.IO.FileInfo = di.GetFiles("*.txt")
For a As Integer = 0 To fi.Length - 1
ListBox1.Items.Add(fi(a).Name)
Next
End Sub