Hola nuevamente.....Muchas gracias por su atencion...pues creo que estaba mas facil de lo que me imaginaba...jeeje...logre dar con la solucion...
Esta es la solucion:
Código:
Private Sub ListView1_ItemDrag(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemDragEventArgs) Handles ListView1.ItemDrag
Dim Contador As Short ' contador de archivos seleccionados
'encendemos el foco ya que el arrastre proviene del mismo listview
'creamos el objeto de tipo listview y
'convertimos el objeto llamador a un tipo listview y se lo asignamos por referencia al objeto creado de tipo listview
Código:
Dim List As ListView
List = CType(sender, ListView)
' creamos un array con un tamaño de la cantidad de objetos seleccionados
Código:
Dim Archivos(List.SelectedItems.Count - 1) As String
'iniciamos el conteo
'y almacenamos en el array la ruta del archivo a almacenar
Código:
For Contador = 0 To List.SelectedItems.Count - 1
Archivos(Contador) = Me.ListView1.SelectedItems(Contador).SubItems(3).Text
Next
'ya que almacenamos los archivos en el array creamos un objeto de transferencia de datos con un formato
'Parametros
'data: Datos que se van a almacenar. en este caso el array
'format/DataFormats.FileDrop: Formato de los datos especificados para colocar archivos de Windows, que no utilizan directamente los formularios Windows Forms
'Inicia una operación de arrastrar y colocar.
'Parámetros:
'data: Datos que se van a arrastrar. en este caso el ObjAlmacen
'allowedEffects:los datos se almacenan en el destiono a colocar de forma de copia..es decir donde se suelten se copian
Código:
Dim ObjAlmacen As New DataObject(DataFormats.FileDrop, Archivos)
List.DoDragDrop(ObjAlmacen, DragDropEffects.Copy)
End Sub
Saludos...y perdon por las faltas de OrRografya jeje
