Udtrække filer fra et bestemt drev

Sæt et listview og en commandbutton på formen.

Imports System.IO   

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim myDir As DirectoryInfo = New DirectoryInfo("D:\")
        Dim myFile As FileInfo
        For Each myFile In myDir.GetFiles
            If myFile.Extension = ".txt" Then
                ListView1.Items.Add(myFile.Name)
            End If
        Next
    End Sub

Super! Tak for det 'kaffe'!

Det virker!

Selvtak og tak for points.