Sleeper: Application FileSearch help

[geebra]

Hi,

I can't seem to get this converted correctly, any help is appreciated.

Dim fs
Dim i As Integer
Dim stlen As Integer
Set fs = Application.FileSearch
With fs
    .LookIn = ActiveWorkbook.Path + "" + "Reports"
    .filename = "*.rpt"
    If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then
        ComboBox1.Clear
        stlen = Len(ActiveWorkbook.Path + "" + "Reports") + 1
        For i = 1 To .FoundFiles.Count
            ComboBox1.AddItem Mid(.FoundFiles(i), stlen)
        Next i
        ComboBox1.Value = Mid(.FoundFiles(1), stlen)
        populate_archive
    End If
End With

[arnelgp]

something similar:

Private Sub Test()
Dim stPath As StringDim stFile As String
Dim stPattern As String
Dim aFiles() As String
Dim i As Integer
ReDim aFiles(500)
stPath = ActiveWorkbook.Path & "\Reports\"
stPattern = "*.rpt"
stFile = Dir$(stPath & stPattern)
Sheets(1).ComboBox1.Clear
If Len(stFile) <> 0 Then
    Do Until Len(stFile) < 1
        i = i + 1
        aFiles(i - 1) = stFile
        stFile = Dir$
    Loop
    ReDim Preserve aFiles(i - 1)
    aFiles = ArrBubbleSort(aFiles)
    For i = 0 To UBound(aFiles)
        Sheets(1).ComboBox1.AddItem aFiles(i)
    Next
End If
End Sub




Public Function ArrBubbleSort(arrVariant As Variant) As Variant
    Dim lLoop1 As Long
    Dim lLoop2 As Long
    Dim lTemp As Variant
    For lLoop1 = UBound(arrVariant) To LBound(arrVariant) Step -1
      For lLoop2 = LBound(arrVariant) + 1 To lLoop1
        If arrVariant(lLoop2 - 1) > arrVariant(lLoop2) Then
          lTemp = arrVariant(lLoop2 - 1)
          arrVariant(lLoop2 - 1) = arrVariant(lLoop2)
          arrVariant(lLoop2) = lTemp
        End If
      Next lLoop2
    Next lLoop1
    ArrBubbleSort = arrVariant
End Function