fill a combobox with a sorted files in dir c:\,ydir\

[luca90]

i have in a dir_

1.txt
2.txt
55.txt
20.txt
9.txt
11.txt
...
6.txt
123.txt

how to fill a combobox with a sorted list of files, similar?

1.txt
2.txt
6.txt
9.txt
11.txt
20.txt
55.txt
123.txt

[westconn1]

list the files into an array using DIR to return all the files from the directory, sort the array using quicksort or bubblsort (depending on your preference), then add all the files to the combobox from the sorted array

[SamOscarBrown]

Suggestion...put the 'name' of the file (less ".txt") into a NUMERIC array Ex: Dim nArray() as Integer.
An easy way to do that is to use a filelistbox set to the directory of your choice and then, using Instr()
to find just the numeric portion of the filenames, put the filenames (less ".txt") into the array.

Then simply use a Bubble Sort to output from lowest to highest.
Finally, add the ".txt" string back.

[SamOscarBrown]

Oh, I see westie has already provided an answer (using Dir instead of filelistbox). (But, WestConn, that array has to be a numeric one, yes?, as a 'normal' sort will sort by string...he will need just the 1, 2, 55, etc put into the array, and not the .txt extension.--correct?)

[SamOscarBrown]

If you are not into arrays, here is an easy way to do what you want:

(Add your combobox and a hidden, SORTED, listbox to your form)

Option Explicit
Dim myFile As String
Dim stringToAdd As String
Private Sub Form_Load()
    Dim i As Integer, j As Integer
    myFile = Dir(App.Path & "\textfiles\*.txt")  'replace with YOUR directory of text files (this gets the first file)
    addZeros 'pad filename with preceeding zeros so list1 will be properly sorted
    List1.AddItem (stringToAdd & myFile)   
    Do While myFile <> ""  'add the remaining .txt files to the listbox
        myFile = Dir
        addZeros 'pad filenames
        List1.AddItem (stringToAdd & myFile)
    Loop
    removeZeros
End Sub
Private Sub addZeros()
        Select Case Len(myFile)
        Case 5
            stringToAdd = "0000"
        Case 6
            stringToAdd = "000"
        Case 7
            stringToAdd = "00"
        Case 8
            stringToAdd = "0"
        Case Else
            stringToAdd = ""
        End Select
End Sub
Private Sub removeZeros()  'when putting values in the combobox, remove the 'front' zeros
    Dim i As Integer, j As Integer
    For i = 1 To List1.ListCount - 1  'start at 1, not 0
        List1.ListIndex = i
        For j = 1 To Len(List1.Text) - 4
            If CInt(Mid(List1.Text, j, 1)) > 0 Then
                Combo1.AddItem (Mid(List1.Text, j))
                Exit For
            End If
        Next j
    Next i
    Combo1.ListIndex = 0
End Sub

[dilettante]

The Shell Lightweight API offers us a compare procedure for this.

Very long lists don't belong in a list picker (ListBox) anyway, so fancy sorting should normally not be required:

Option Explicit

Private Declare Function StrCmpLogicalW Lib "shlwapi" ( _
    ByVal psz1 As Long, _
    ByVal psz2 As Long) As Long

Private Sub Form_Load()
    Dim FileName As String
    Dim pFileName As Long
    Dim I As Integer

    FileName = Dir$(App.Path & "\Files\*.*", vbNormal)
    With List1
        Do
            'If the list is very long you could do a fancier sort.
            If .ListCount = 0 Then
                .AddItem FileName
            Else
                pFileName = StrPtr(FileName)
                For I = 0 To .ListCount - 1
                    If StrCmpLogicalW(StrPtr(.List(I)), pFileName) > -1 Then Exit For
                Next
                .AddItem FileName, I
            End If
            FileName = Dir$()
        Loop Until Len(FileName) = 0
    End With
End Sub

Private Sub Form_Resize()
    If WindowState <> vbMinimized Then
        List1.Move 0, 0, ScaleWidth, ScaleHeight
    End If
End Sub