Ver Mensaje Individual
  #2 (permalink)  
Antiguo 06/11/2015, 08:32
Gerard93
 
Fecha de Ingreso: mayo-2015
Ubicación: Nicaragua, Diriamba
Mensajes: 48
Antigüedad: 9 años, 8 meses
Puntos: 1
Respuesta: Dudas con Listbox

Hola

Este codigo te servira solo para capturar los nombres:
Código Visual Basic:
Ver original
  1. For Each Archivo As String In My.Computer.FileSystem.GetFiles(My.Computer.FileSystem.SpecialDirectories.MyDocuments, FileIO.SearchOption.SearchTopLevelOnly, "*.jar")
  2.             ListBox1.Items.Add(IO.Path.GetFileName(Archivo))
  3.         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:
Ver original
  1. Dim ruta1 As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
  2.     Dim ruta2 As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
  3. Private Sub btnParaAlla_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnParaAlla.Click
  4.  
  5.         IO.File.Move(ruta1 + "\" + ListBox1.SelectedItem.ToString(), ruta2 + "\" + ListBox1.SelectedItem.ToString())
  6.         ListBox2.Items.Add(ListBox1.SelectedItem)
  7.         ListBox1.Items.Remove(ListBox1.SelectedItem)
  8.     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:
Ver original
  1. IO.File.Move(ruta2 + "\" + ListBox2.SelectedItem.ToString(), ruta1 + "\" + ListBox1.SelectedItem.ToString())
  2.  ListBox1.Items.Add(ListBox2.SelectedItem)
  3.         ListBox2.Items.Remove(ListBox1.SelectedItem)

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