Public Sub FillComboBox(ByVal comboBoxToFill As ComboBox, ByVal path As _
      String)
        If comboBoxToFill Is Nothing Then
            Throw New ArgumentNullException("comboBoxToFill")
        End If
 
        If String.IsNullOrEmpty(path) Then
            Throw New ArgumentNullException("path")
        End If
 
        Dim fName As String = String.Empty
        Dim fInfo As IO.FileInfo
        Dim fInfos() As IO.FileInfo
        Dim dInfo As New IO.DirectoryInfo(path)
 
        fInfos = dInfo.GetFiles("*.*")
 
        comboBoxToFill.Items.Clear()
        comboBoxToFill.Text = String.Empty
 
        For Each fInfo In fInfos
            fName = fInfo.Name.Substring(0, fInfo.Name.Length - _
              fInfo.Extension.Length)
            comboBoxToFill.Items.Add(fName & " | " & _
            fInfo.CreationTime.ToString & " | " & fInfo.LastWriteTime.ToString)
        Next
 
    End Sub