Buenas! Estoy en VB2008 con un programa que debe leer los datos de unos archivos en un directorio. Estos archivos tienen el mismo nombre, o extensión, da igual. Para la búsqueda utilizo un For Each:
Código:
For Each Archivo As String In My.Computer.FileSystem.GetFiles(Ruta, _
FileIO.SearchOption.SearchAllSubDirectories, "setup.exe")
'Se añaden los archivos encontrados
ListArchivos.Items.Add(Archivo)
Next
Bien, en este ejemplo se buscan todos los archivos "setup.exe" y se carga su ruta en un ListBox. El problema es que esta búsqueda puede llegar a durar mucho, y mientras tanto quiero que el programa siga funcionando, o por lo menos muestre un ProgressBar con animación.
He probado con un DoEvents, pero el problema (supongo) es que mientras no encuentre un archivo "setup.exe", no se ejecutará ese DoEvents. Y si hay pocos archivos así, el programa no responderá. ¿Alguna sugerencia? Graciasss.
Salu00000010!!!