'##############################################################################
' #######
    'TXT-Daten in ComboBox laden
    Public Sub TXT_laden()
 
        Dim fName As String = String.Empty
        Dim fInfo As IO.FileInfo
        Dim fInfos() As IO.FileInfo
        Dim dInfo As New IO.DirectoryInfo(path)
 
        Form_QuotationGuide.cmb_ZAFZAG.Items.Clear()
 
        If Form_QuotationGuide.cmb_ZAFZAG Is Nothing Then
            Throw New ArgumentNullException("comboBoxToFill")
        End If
 
        If String.IsNullOrEmpty(path) Then
            Throw New ArgumentNullException("path")
        End If
 
        fInfos = dInfo.GetFiles("ZAG*.txt")
 
        Form_QuotationGuide.cmb_ZAFZAG.Text = String.Empty
 
        For Each fInfo In fInfos
            fName = fInfo.Name.Substring(0, fInfo.Name.Length - _
              fInfo.Extension.Length)
            Form_QuotationGuide.cmb_ZAFZAG.Items.Add(fName & " | " & _
            fInfo.CreationTime.ToString)
        Next
 
    End Sub

            If Form_QuotationGuide.cmb_ZAFZAG.Items.Contains("ZAG2020620979 |" & _
              "17.07.2012 14:20:27") Then
                For i = 0 To Form_QuotationGuide.cmb_ZAFZAG.Items.Count - 1
                    If Form_QuotationGuide.cmb_ZAFZAG.Items.Item(i) = _
                      "ZAG2020620979 | 17.07.2012 14:20:27" Then
                        Form_QuotationGuide.cmb_ZAFZAG.SelectedIndex = i
                        Exit For
                    End If
                Next
            End If