Visual Basic - programa que cargaba en una ListBox el directorio escogido

Life is soft - evento anual de software empresarial
   
Vista:

programa que cargaba en una ListBox el directorio escogido

Publicado por GEORGE ftrprograma@hotmail.com (1 intervención) el 27/11/2014 22:50:38
Una ayudita me encontré hace tiempo con un código de un programa que cargaba en una ListBox el directorio escogido, pero era de darle click a un botón, pero si es el caso de ya carga en la ListBox la ruta que cambiaría sin la necesidad de dar click al botón, no se mucho de código pero estoy tratando de aprender.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
        CARPETA = FolderBrowserDialog1.SelectedPath
        GENERO.Items.Clear()
        ARTISTA.Items.Clear()
        ALBUM.Items.Clear()
        ARCHIVO.Items.Clear()
        ARCHIVOS = My.Computer.FileSystem.GetDirectories(CARPETA)
        Dim NOMBRE As String = Nothing
        For I = 0 To ARCHIVOS.Count - 1
            NOMBRE = ARCHIVOS(I).Remove(0, ARCHIVOS(I).LastIndexOf("\") + 1)
            GENERO.Items.Add(NOMBRE)
        Next
    End If
End Sub


1
2
3
4
5
6
7
8
9
10
11
12
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles GENERO.SelectedIndexChanged
    CARPETA = FolderBrowserDialog1.SelectedPath & "\" & GENERO.SelectedItem
    ARTISTA.Items.Clear()
    ALBUM.Items.Clear()
    ARCHIVO.Items.Clear()
    ARCHIVOS = My.Computer.FileSystem.GetDirectories(CARPETA)
    Dim NOMBRE As String = Nothing
    For I = 0 To ARCHIVOS.Count - 1
        NOMBRE = ARCHIVOS(I).Remove(0, ARCHIVOS(I).LastIndexOf("\") + 1)
        ARTISTA.Items.Add(NOMBRE)
    Next
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder