Private Sub listboxload(ByVal Path As String, ByVal SplitChar As String)
        ' Directory-Object erstellen
        Dim oDir As New System.IO.DirectoryInfo("Pfad zum Ordner")
        ' 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
 
        ListBox1.Items.Clear()
        For Each oFile In oFiles
 
            'Hier die Abfrage für den Vergleich
            If ### = Datestring Then
                ListBox1.Items.Add(oFile.Name)
            End If
 
        Next
 
 
    End Sub