lvInputOrdner.View = View.Details
        lvInputOrdner.FullRowSelect = True
        lvInputOrdner.Columns.Add("")
        lvInputOrdner.Columns(0).Width = 351
 
 
        Dim files As String() = System.IO.Directory.GetFiles("T:\Archiv\Input")
 
        For Each file As String In files
            ' Die pfand Angabe von Dateinamen wegschneiden
            Dim fileName As String = file
            If fileName.Contains("\") Then
                fileName = fileName.Substring(fileName.LastIndexOf("\") + 1)
            End If
 
            Me.lvInputOrdner.Items.Add(fileName)
        Next