Dim dInfo As New IO.DirectoryInfo("C:\User")
        For Each fInfo As IO.FileInfo In dInfo.GetFiles( _
                "*,*,*,*.*", SearchOption.AllDirectories)
            Dim fileName() As String = _
                    fInfo.Name.Substring(0, _
                    fInfo.Name.LastIndexOf(".")).Split(",")
            If fileName.Length = 4 Then
                ListView1.Items.Add(New ListViewItem(fileName))
            Else
                MsgBox("Datei hat falsche Format: " & fInfo.FullName)
            End If
        Next