Visual Basic - Agregar Directorios y ficheros

Life is soft - evento anual de software empresarial
   
Vista:

Agregar Directorios y ficheros

Publicado por Jaime (4 intervenciones) el 10/03/2016 16:11:27
Hola, tengo un problema quiero añadir un código, que me abra los directorios de mi ordenador, busque en las carpetas y que filtre por .jpg dentro de esa carpeta y luego se añada a un listbox. como representa la imagen.

t70274

Alguien podría ayudarme?
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
Imágen de perfil de Andres Leonardo

Agregar Directorios y ficheros

Publicado por Andres Leonardo (702 intervenciones) el 10/03/2016 16:44:57
Entiendo que lo que quieres es poner los archivos de cierta ruta

1
NOMBREDELLISTBOX.DataSource = My.Computer.FileSystem.GetFiles("aqui va la ruta", FileIO.SearchOption.SearchTopLevelOnly, "*.jpg")
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Agregar Directorios y ficheros

Publicado por Jaime (4 intervenciones) el 10/03/2016 17:06:52
Hola Muchas Gracias!

Era esto pero una pregunta, si donde pone "Aquí va la ruta" quiero que se me abra un carpeta donde salgan la raíz de mi ordenador y yo pueda seleccionar donde buscar? tipo folderbrowser.

en cuentas de poner yo la ruta a mano.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Agregar Directorios y ficheros

Publicado por Jaime (4 intervenciones) el 10/03/2016 17:35:09
Me respondo yo solo, he conseguido hacerlo con el siguiente codigo:

1
2
3
If Explorer.ShowDialog = DialogResult.OK Then
    Nombrelistbox.DataSource = My.Computer.FileSystem.GetFiles(Explorer.SelectedPath, FileIO.SearchOption.SearchTopLevelOnly, "*.txt")
end if

pero al cargar el archivo me sale un error como este:


Se produjo una excepción de tipo 'System.ArgumentException' en System.Windows.Forms.dll pero no se controló en el código del usuario

Información adicional: No se puede modificar la colección Items cuando está establecida la propiedad DataSource.

y donde se detiene en el codigo:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
If (e.Error IsNot Nothing) Then
	MsgBox(e.Error.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical)
Else
 
	Dim resultado As String = e.Result.ToString()
	If resultado.Length > 0 Then
 
		If resultado.Equals("True") Or resultado.Equals("False") Then
			If resultado.Equals("True") Then
				MessageBox.Show("Conexión correcta.")
			End If
			btnTestCon.Enabled = True
			txtServidor.Enabled = True
			txtUsuario.Enabled = True
			txtContrsena.Enabled = True
			txtRutaFtp.Enabled = True
			btnEnviar.Enabled = True
		Else
			pnlProgreso.Visible = False
			ListaFicherosLocal = New List(Of String)
			Nombrelistbox.Items.Clear()
			MessageBox.Show(resultado)
		End If
	Else
		ListaFicherosLocal = New List(Of String)
		Nombrelistbox.Items.Clear()


Si alguien sabe como salir de aqui..
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar