none
copiar archivos desde listbox a una carpeta especifica RRS feed

  • Pregunta

  • hola como estan, espero que bien me gustaria saber como copiar los archivos agregados a un listbox a una carpeta espcifica tengo este codigo pero me da error:

     My.Computer.FileSystem.CreateDirectory(
      "C:\123")

            Dim source As String
            source = TextBox2.Text
            Dim di As New IO.DirectoryInfo(source)
            Dim fi As IO.FileInfo() = di.GetFiles("*.mp3")
            Dim file As IO.FileInfo
            Dim i As Integer
            For i = 0 To ListBox1.Items.Count - 1 ' loop through Listbox1
                If ListBox1.GetSelected(i) Then
                    'Not sure about this line since I did not try a copy just ListBox1.text to a label
                    System.IO.File.Copy(ListBox1.SelectedItem.fullname.ToString(i), source)
                    ListBox1.SetSelected(i, True)
                Else
                    MsgBox("File doesnt exists")
                End If
            Next i
            MsgBox("File(s) Copied")

    el error que me da es que me sale el msgbox file doesnt exists por cada archivo agregado al listbox y luego me sale el siguiente msgbox file copied pero cuando reviso la carpeta c:\123 aparece creada pero sin archivos parece que como no esta leyendo los archivos del listbox me gustaria saber su correcion gracias.....

    vb 2010

    miércoles, 18 de septiembre de 2013 0:51

Todas las respuestas