none
Como Extraer los archivos de multiples carpetas y visualizarlos en un listView RRS feed

  • Pregunta

  • Buenas Tardes:

    Explico, tengo 500 carpetas y cada carpeta tiene un archivo imagen y de 15 a 20 archivos, quiero:

    1ro.- Que al decirle la ruta C:\Documentos, el sistema lea y me mande los nombre de las primeras 9 carpetas a 9 labels respectivamente.

    2do.- Que al decirle la ruta C:\Documentos, el sistema lea las primeras 9 carpetas y las imagenes que hay en cada una se vayan respectivamente a su picturebox (obviamente tengo 9 picturebox)

    3ro.- Poder visualizar los archivos de la carpeta al darle click al picturebox.

    Tengo este codigo en el load pero me atore porque efectivamente carga la imagen de la carpeta PERO tengo que especificarle la ruta exacta y nombre exacto del archivo y yo quiero que solo le tenga que poner la ruta C:\Documentos y en automatico busque la primer subcarpeta y busque el nombre de ella y el archivo.jpg y me de la informacion en el primer picturebox y el primer label y cargue en automatico lo mismo para el segundo para el tercero etc etc

    PictureBox1.Image = Image.FromFile("C:\Documentos\carpeta1\foto1.jpg")

    En el picturebox tengo el siguiente codigo y me manda los archivos al listview pero es EL MISMO PROBLEMA porque tengo que especificarle exactamente de que ruta tiene que extraer la informacion y para eso tengo este codigo:

    Try
                ' SearchAllSubDirectories : incluye los Subdirectorios  
                ' SearchTopLevelOnly : para buscar solo en el nivel actual  
                ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''  
                For Each Archivo As String In My.Computer.FileSystem.GetFiles( _
                                        "C:\Documentos\carpeta1", _
                                        FileIO.SearchOption.SearchTopLevelOnly, _
                                        "*.doc")

                    ' extraer el nombre de la ruta  
                    Archivo = Archivo.Substring(Archivo.LastIndexOf("\") + 1).ToString
                    ' Agregar el valor al listbox  
                    ListView1.Items.Add(Archivo)

                Next
                ' errores  
            Catch oe As Exception
                MsgBox(oe.Message, MsgBoxStyle.Critical)
            End Try

    De antemano gracias por la ayuda que puedan darme

    • Cambiado Enrique M. Montejo lunes, 11 de abril de 2016 5:23 Pregunta relacionada con controles de Windows Forms.
    viernes, 8 de abril de 2016 3:26