Public Sub Bildauswahl()
        Dim dir As New System.IO.DirectoryInfo( _
          System.IO.Directory.GetCurrentDirectory & "\Images\")
        Dim files As System.IO.FileInfo() = dir.GetFiles("*.*")
        Dim file As System.IO.FileInfo
        Dim name As String
        Dim i As Integer = 1
 
        Me.lvBilder.Clear()
        For Each file In files
            name = Path.GetFileName(file.Name)
            Me.lvBilder.Items.Add(name)
            i = i + 1
        Next
    End Sub

mfg
rt