Boa tarde Amigos
![[Resolvido]Como Ordenar descendente esta caixa de listagem ? Sem_t197](https://i.servimg.com/u/f56/19/62/62/37/sem_t197.png)
Este é o código de a carregar
Private Sub fncCarregaLista(Optional strNome As String)
Dim strArquivo As String
Dim strCaminho As String
Me!Lista0.RowSource = ""
strCaminho = Application.CurrentProject.Path & "\PDF\"
strArquivo = Dir$(strCaminho & "*.pdf")
Do While Len(strArquivo) > 0
If IsMissing(strNome) Then
Me.Lista0.AddItem strArquivo
ElseIf InStr(strArquivo, strNome) Then
Me.Lista0.AddItem strArquivo
End If
strArquivo = Dir$()
Loop
End Sub
Obrigado
![[Resolvido]Como Ordenar descendente esta caixa de listagem ? Sem_t197](https://i.servimg.com/u/f56/19/62/62/37/sem_t197.png)
Este é o código de a carregar
Private Sub fncCarregaLista(Optional strNome As String)
Dim strArquivo As String
Dim strCaminho As String
Me!Lista0.RowSource = ""
strCaminho = Application.CurrentProject.Path & "\PDF\"
strArquivo = Dir$(strCaminho & "*.pdf")
Do While Len(strArquivo) > 0
If IsMissing(strNome) Then
Me.Lista0.AddItem strArquivo
ElseIf InStr(strArquivo, strNome) Then
Me.Lista0.AddItem strArquivo
End If
strArquivo = Dir$()
Loop
End Sub
Obrigado