viernes, 24 de noviembre de 2006

Cargar un Combobox con archivos de un directorio

Para cargar el combo necesitamos decirle en que directorio se encuentran los archivos que vamos a cargar. Después declaramos un array de cadenas donde almacenaremos los nombres de los archivos. En el caso de que necesitemos borrar uno de los archivos tendremos eliminar los ítems del combo y volver a recargarlo, si no hacemos esto tendremos nombres de archivos en el combo que no existen en el directorio, con lo que nos puede llevar a la confusión.
Por último añadimos al combo los nombres de los ficheros sin la extensión y hacemos que salgan ordenados.

Try
Dim Directorio As String = Application.StartupPath & "\MODELOS"
'Filtramos el tipo de archivos que queremos añadir al combo
Dim DirFiles() As String = Directory.GetFiles(Directorio, "*.rtf")
'Borramos los ítems para no añadir repetidos al recargarlo
cbModelos.Items.Clear()
For x As Integer = 0 To DirFiles.Length - 1
'Añadir al combo
cbModelos.Items.Add(DirFiles(x).Substring(Directorio.Length + 1, DirFiles(x).Length - Directorio.Length - 5))
Next
cbModelos.Sorted = True
Catch ex as Exception
msgbox (ex)
End Try

Desarrollo de Aplicaciones

Este blog surge como respuesta a mis inquietudes en el mundo de la programación y por el momento estará enfocado al desarrollo con Visual Basic 2005.