[Resolvido]Ordenar ListBox

Boa tarde Amigos

Tenho uma ListBox que lista documentos PDF que se encontram numa pasta com o Nome "PDF"

Eis o código que carrega a LisBox.

Pergunto como ordenar a ListBox "Ver imagem" do Nº 1 em diante.

Obrigado

Código:

Private Sub Form_Open(Cancel As Integer)
Dim strArquivo As String
Dim strcaminho As String

Me.KeyPreview = True

   Me!Lista0.RowSource = ""
   strcaminho = CurrentProject.path & "\PDF\"
   strArquivo = Dir$(strcaminho & "*.pdf")
   Do While Len(strArquivo) > 0
       Me.Lista0.AddItem strArquivo
       strArquivo = Dir$()
   Loop
End Sub

Up

Boa noite

Up

Ola Assis postando o exemplo fica mais facil ajuda-lo.
Abc.

Bom dia Amigos

Segue o exemplo de ListBox que lista documentos PDF

Obrigado

Bom dia, professor!!

Tem algum problema deixar o número da requisição com "01" ao invés de "1"?

Apenas acrescentando o 0 (zero) na frente do numeral, a listbox já ordena da maneira correta.

[/url]

Espero ter ajudado!

Abs.,
Marcelo.

Obrigado Marcelo

Ajudou e muito.

Mas acho que ainda vai aparecer um " Fera " que vai ordenar ascendentes e descendente.

Boa noite

Como não tive resposta para a Msg Nº 7 vou fechar o tópico

Obrigado