pdf file name print in Folder Order

Private Sub SortAlphaNum(List() As String)
    Dim TagedList() As String       ' List with "tags" in the numbers.
    ReDim taggedlist(UBound(List))

    Dim item As String              ' One item with tags.
    Dim ch As String                ' One character.
    Dim num As String               ' A number.  Can be multidigit.
    Dim digitCount As Integer       ' The number of digits.
    Dim i, j As Integer

    ' Visit each item in the list.
    For i = 0 To UBound(List) - 1
        ' Init.
        item = ""
        inNum = False
        num = ""
        digitCount = 0
        j = 1

        ' Examine each character.
        While j <= Len(List(i))
            ' Get one character.
            ch = Mid(List(i), j, 1)

            ' If the character is not a digit put it in the item.
            If ch < "0" Or ch > "9" Then
                item = item & ch

            ' Else, this is a digit.
            Else
                ' Keep reading digits.
                While ch >= "0" And ch <= "9"
                    ' Increase the count and add digit to num.
                    digitCount = digitCount + 1
                    num = num & ch
                    j = j + 1

                    ' Get another character.
                    ch = Mid(List(i), j, 1)
                Wend

                ' Add the tag and digit to the item.
                item = item & digitCount
                item = item & num

                ' If this is not the end of the line, add the last character read to the item.
                If j <= Len(List(i)) Then
                    item = item & ch
                End If
            End If
            j = j + 1
        Wend
        ' update the tagged list with the item.
        taggedlist(i) = item
    Next i

    ' Sort the tagged list (along with the real list).
    ' This is just a bubble sort.  Probably should replace.
    For i = 0 To UBound(taggedlist) - 2
        For j = 0 To UBound(taggedlist) - 2
            If taggedlist(j) > taggedlist(j + 1) Then
                item = taggedlist(j)
                taggedlist(j) = taggedlist(j + 1)
                taggedlist(j + 1) = item
                item = List(j)
                List(j) = List(j + 1)
                List(j + 1) = item
            End If
        Next j
    Next i
End Sub

Private Sub Command1_Click()
    Dim i As Integer
    Dim mylist() As String
    ReDim mylist(List1.ListCount)

    ' Get list from listbox1.
    For i = 0 To List1.ListCount - 1
        mylist(i) = List1.List(i)
    Next i

    ' Sort the list.
    Call SortAlphaNum(mylist)

    ' Display in listbox2.
    List2.Clear
    For i = 0 To List1.ListCount
        Call List2.AddItem(mylist(i))
    Next i
End Sub