' Ovanför all annan kod måste du ha följande rad:
Imports System.IO

' När programmet laddas skall du lägga in följande:
Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' Förbered listan där filerna skall visas
lvwFiler.View = View.Details

lvwFiler.Items.Clear()
lvwFiler.Columns.Clear()

lvwFiler.Columns.Add("Filnamn", 100, HorizontalAlignment.Left)
lvwFiler.Columns.Add("Storlek", 65, HorizontalAlignment.Right)
lvwFiler.Columns.Add("Typ", 45, HorizontalAlignment.Left)
lvwFiler.Columns.Add("Senast Ändrad", 115, HorizontalAlignment.Center)
End Sub

' Sen är det bara att lägga in följande kod i en knapp eller liknande:
Private Sub btnVisa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVisa.Click
lvwFiler.Items.Clear() ' Töm listan

' txtSökväg.Text skall innehålla sökvägen till mappen där filerna skall visas
Dim SökVäg As New DirectoryInfo(txtSökväg.Text)
Dim FilLista() As FileInfo = SökVäg.GetFiles()
' FilLista innehåller nu alla filer i den valda mappen

Dim lvi As New ListViewItem()
Dim fi As FileInfo

' Sen loopar vi igenom FilLista och listar alla filer
For Each fi In FilLista
lvi = lvwFiler.Items.Add(fi.Name)
lvi.SubItems.Add(fi.Length \ 1024 + 1 & " KB") 'Gör om till KB
lvi.SubItems.Add(fi.Extension)
lvi.SubItems.Add(fi.LastWriteTime)
Next fi
End Sub