Alguna manera de listar archivos de forma ordenada?

Iniciado por Bardick, 17 Abril 2010, 17:04 PM

0 Miembros y 2 Visitantes están viendo este tema.

Bardick

Estoy usando el siguiente codigo para listar todos los archivos de una carpeta:

Dim archivo As String
archivo = Dir("c:\prueba\*.doc")
Do While archivo <> ""
List1.AddItem archivo
archivo = Dir
Loop


El caso es que me funciona, pero quisiera que me lo hiciera de forma ordenada,es posible ordenarlos numericamente en el control List?

Los archivos que tengo son 100.doc,102.doc y 1001.doc pero siempre el 1001 me lo coloca despues del 100 en control list.

Psyke1

#1
exale un vistazo a esto:
http://www.telecable.es/personales/jrubi/index.htm?trucos.htm
en la sección: "Ordenar elementos numéricos en un ListBox o ComboBox"

Salu2! ;D

Bardick

Gracias por contestar,pero el link no funciona!

De todas formas logre solucionarlo,al final opte por insertar los datos numericos a una base de datos y hacer una consulta en orden ascendente  :).