Dim oDir As New System.IO.DirectoryInfo("C:\PDF_Gutschriften")
 
            '' alle Dateien des Ordners
            Dim oFiles As System.IO.FileInfo() = oDir.GetFiles()
            ' Datei-Array durchlaufen und in 
            ' ListBox übertragen
            Dim oFile As System.IO.FileInfo
 
            ListView1.Items.Clear()
 
 
 
            For Each oFile In oFiles
                Dim s As String = oFile.Name
                Me.Text = Path.Combine(Path.GetDirectoryName(s), _
                  Path.GetFileNameWithoutExtension(s))
                Dim ArrayString() As String = Split(Text, "-")
 
                With Me.ListView1.Items.Add(ArrayString(0))
                    .SubItems.Add(ArrayString(1))
                    .SubItems.Add(ArrayString(2))
                    .SubItems.Add(ArrayString(3))
                    .SubItems.Add(ArrayString(4))
                End With
 
            Next
        End If
 
    End Sub