[SOLUCIONADO] Dudas con Listbox

[Cholo5247]

Buenas Necesito ayuda con algo, soy algo nuevo en esto del VB utilizo el 2010 y lo que quiero hacer les explico..

Tengo 2 ListBox en mi form lo que quiero que hacer es que la primera lista lea una carpeta especifica, ya tengo el codigo para que encuentre la carpeta:
Environment.GetFolderPath(Environment.SpecialFolde r.ApplicationData) & ("\.Carpeta" & "\Carpeta")

Lo que no tengo es un método para que solo los nombres de los archivos se muestren en la lista.. he encontrado unos códigos pero muestra la ruta donde se encuentra pero yo solo quiero que muestre el nombre los archivos, quiero que muestre solo aquellos que sean .jar .


-Y en el otro recuadro seria que al presionar un Boton el archivo seleccionado en la primera lista se colocara en el segundo recuadro y al mismo tiempo que ese mismo archivo se moviera a otra carpeta y en otro boton viceversa.

Muchas Gracias.

[Gerard93]

Hola

Este codigo te servira solo para capturar los nombres:

Código Visual Basic:

For Each Archivo As String In My.Computer.FileSystem.GetFiles(My.Computer.FileSystem.SpecialDirectories.MyDocuments, FileIO.SearchOption.SearchTopLevelOnly, "*.jar")
            ListBox1.Items.Add(IO.Path.GetFileName(Archivo))
        Next
 

Ahora para mover los items entre los listview y al mismo tiempo se muvan entre carpetas te servira este codigo :

Código Visual Basic:

Dim ruta1 As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
    Dim ruta2 As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
Private Sub btnParaAlla_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnParaAlla.Click
 
        IO.File.Move(ruta1 + "\" + ListBox1.SelectedItem.ToString(), ruta2 + "\" + ListBox1.SelectedItem.ToString())
        ListBox2.Items.Add(ListBox1.SelectedItem)
        ListBox1.Items.Remove(ListBox1.SelectedItem)
    End Sub
 

Usa dos variables gloabales (es mejor usar locales pero para eso tendrias que poner el codigo en una funcion) donde estaran las rutas de las carpetas donde se moveran los archivos, puedes usar este mismo codigo para regresarlos a la otra carpeta solo intercambia posiciones:

Código Visual Basic:

IO.File.Move(ruta2 + "\" + ListBox2.SelectedItem.ToString(), ruta1 + "\" + ListBox1.SelectedItem.ToString())
 ListBox1.Items.Add(ListBox2.SelectedItem)
        ListBox2.Items.Remove(ListBox1.SelectedItem)
 

Y listo ahi tendrias lo que necesitas, porfavor avisanos como te fue