programa que cargaba en una ListBox el directorio escogido
Publicado por GEORGE (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 = NothingFor 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 = NothingFor 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
0