Visual Basic

classy_dog wrote:

Thus can you tell me the best way to give this column default values of today's
date?

classy_dog wrote:

What code would you use

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

ListBox1.Visible = False  ' don't want users seeing this
ListBox1.Sorted = True

Public dirAccessFiles As String() = Directory.GetFiles("H:\FilesTest", "*.accdb")

For Each dir In dirAccessFiles
    ListBox1.Items.Add(Path.GetFileNameWithoutExtension(dir))
Next
' ListBox1 now has the items in alphabetic order
' so, to add them to the combo box in reverse order:
Dim I as integer
For I = ListBox1.Items.Count - 1 To 0 Step -1
   cboAccessFile.Items.Add(ListBox1.Items(I))
Next

Wombaticus wrote:

but I suspect Linq is a bit beyond our OP at present

Dim dirAccessFiles As String() = Directory.GetFiles("H:\FilesTest", "*.accdb")
Dim list As New List(Of String)()
For Each dir As String In dirAccessFiles
    list.Add(Path.GetFileNameWithoutExtension(dir))
Next
list.Sort()
For i As Integer = list.Count - 1 To 0 Step -1
    comboBox1.Items.Add(list(i))
Next

Wombaticus wrote:

Still, my "trick" has many applications! (I'm not giving up on it that easily! )

Wombaticus wrote:

I guess this old trick goes back before the days of such things...

Private Function reverseFileNameComparer() As Comparison(Of String)
      Return Function(x, y) (String.Compare(Path.GetFileNameWithoutExtension(y), Path.GetFileNameWithoutExtension(x), StringComparison.OrdinalIgnoreCase))
  End Function

  Private Sub AddToCombo(combo As ComboBox, directoryPath As String, filter As String)
      ' Error check, 'IsNothing(combo)' and 'IO.Directory.Exists(directoryPath)' bla-bla
      combo.BeginUpdate()
      For Each fn As String In Directory.EnumerateFiles(directoryPath).OrderByDescending(Function(f) (Path.GetFileNameWithoutExtension(f)))
          combo.Items.Add(Path.GetFileNameWithoutExtension(fn))
      Next
      combo.EndUpdate()

      ' Or...
      Dim files() As String = Directory.GetFiles(directoryPath, filter)
      Array.Sort(files, reverseFileNameComparer)
      combo.Items.AddRange(Array.ConvertAll(files, AddressOf Path.GetFileNameWithoutExtension))

      'Since you want to order by file name, I suggest you use the System.IO namespace:
      'You could:
      combo.FormattingEnabled = True
      'Add a handler to 'ComboBox.Format -
      'or --
      combo.DisplayMember = "Name"
      combo.BeginUpdate()
      For Each fio As FileInfo In New DirectoryInfo(directoryPath).EnumerateFiles(filter).OrderByDescending(Function(f) (f.Name))
          combo.Items.Add(fio.Name)

      Next
      combo.EndUpdate()
  End Sub

  Private Sub cboFileInfo_format(sender As Object, e As ListControlConvertEventArgs)
      Dim f As FileInfo = DirectCast(e.ListItem, FileInfo)
      e.Value = f.Name.Substring(f.Name.LastIndexOf("."c) + 1)
  End Sub

Dim dirAccessFiles As String() = Directory.GetFiles("H:\FilesTest", "*.accdb") _
                                          .Select(Function(x) Path.GetFileNameWithoutExtension(x)) _
                                          .OrderByDescending(Function(x) x) _
                                          .ToArray()

cboAccessFile.Items.AddRange(dirAccessFiles)