Sección de códigos , trucos y ejemplos para visual basic

311 - Listar y ordenar archivos en forma alfabética

Ejemplo que permite listar los archivos de un path determinado, y retornar un array con la lista ordenada en forma alfabética usando el método QuickSort

A la función que lista los archivos y que devuelve el vector con los ficheros ordenados, hay que pasarle como parámetro el path.

Luego de esto, la función se asigna a otro vector, para recorrer y agregar la lista ordenada en un control ListBox

Controles

Agregar en un formulario un control CommandButton
un ListBox

Código fuente en el formulario

Option Explicit 'Función que busca y retorna la lista de archivos ordenados '***************************************************************************** Private Function Listar_Archivos(ByVal Ruta As String) As String() Dim n As Long ' Para la cantidad de archivos ' Array con la lista de archivos encontrados Dim Array_Archivos() As String Dim El_Archivo As String 'El archivo actual ' Si no tiene la barra separadora la agrega If Right$(Ruta, 1) <> "\" Then Ruta = Ruta & "\" End If 'Busca el primero El_Archivo = Dir$(Ruta) 'Busca los demás Do While Len(El_Archivo) > 0 n = n + 1 ReDim Preserve Array_Archivos(1 To n) ' Agrega el archivo al array que luego se ordenará Array_Archivos(n) = El_Archivo ' Sigue buscando El_Archivo = Dir$() Loop ' si no hay archivos retorna un array vacío If n = 0 Then ReDim Listar_Archivos(0) Else ' Ordena los ficheros Ordenar_Archivos Array_Archivos, 1, n ' Retorna la lista de archivos ordenados Listar_Archivos = Array_Archivos End If End Function ' Rutina que ordena los archivos usando el método QuickSort '******************************************************************* Sub Ordenar_Archivos(El_Vector() As String, _ Limite_Inferior As Long, _ Limite_Superior As Long) Dim i As Long, j As Long, x As Variant, y As Variant i = Limite_Inferior j = Limite_Superior x = El_Vector((Limite_Inferior + Limite_Superior) / 2) While i <= j While (El_Vector(i) < x) And (i < Limite_Superior) i = i + 1 Wend While (x < El_Vector(j)) And (j > Limite_Inferior) j = j - 1 Wend If i <= j Then y = El_Vector(i) El_Vector(i) = El_Vector(j) El_Vector(j) = y i = i + 1 j = j - 1 End If Wend If Limite_Inferior < j Then Ordenar_Archivos El_Vector(), Limite_Inferior, j End If If i < Limite_Superior Then Ordenar_Archivos El_Vector(), i, Limite_Superior End If End Sub ' Botón que abre un inputBox para indicar el _ path donde se buscarán los archivos y luego los agregará _ ordenadados al listbox '**************************************************************** Private Sub Command1_Click() Dim i As Long Dim Path As String ' Vector para asignar el valor devuelto por la función Dim Archivos_Ordenados() As String Path = InputBox("Ingrese un path para listar los " & _ "archivos ordenados alfabeticamente " & _ "en el control ListBox ", _ " Buscar archivos y ordenarlos ") If Path = vbNullString Then Exit Sub ' Llama a la función que ordena y retorna el vector con la lista ordenada Archivos_Ordenados = Listar_Archivos(Path) List1.Clear 'Recorre la lista y la agrega For i = LBound(Archivos_Ordenados) To UBound(Archivos_Ordenados) List1.AddItem Archivos_Ordenados(i) Next End Sub Private Sub Form_Load() Me.Caption = " Ordenar archivos alfabéticamente " Command1.Caption = " Seleccionar directorio " End Sub Private Sub Form_Resize() List1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight - 500 Command1.Left = Me.ScaleWidth - (Command1.Width + 100) Command1.Top = Me.ScaleHeight - Command1.Height End Sub

Recursos visual basic.NET - Relacionados

Ejemplos varios para trabajar con archivos y carpetas en vb.NET

Recursos vb 6.0 - Relacionados

Métodos de ordenación - Ejemplos

Buscar en Recursos vb