Esta perfecto LenadroA
y... explorandolo y debugeando, en la pc de mi hermana tenia un ligero bug, que era que un disco duro no tenia etiqueta, se enviaba igual y descolocaba los items de "Otros sitios" en el explorador. La solucion:
En el proyecto cliente, Modulo de clase: clsExplorer, Procedimiento AddPathToBuffer cambiar:
If sPath <> "" Then
por
If sPath <> "" And sName <> "" Then
Lo mas raro es que se enviaba la unidad D: 2 veces
Otra cosa, gracias a este bug habria que evitar Items de captions vacios en el ExplorerFrame
agregando en el sub AddItem:
If Caption = "" Then Exit Sub
Por otro lado, el mostrar en carpeta... yo cambiaria el shell execute por este
ShellExecute 0&, "open", "explorer.exe", "/select, " & Chr$(34) & ucListView2.ItemText(Item) & Chr$(34), ucListView2.SubItemText(Item, 7), SW_SHOWNORMAL
ya que abre el explorador con el archivo seleccionado (util cuando es una carpeta con muuchos archivos)
Saludos y muuuy buen proyecto LeandroA, si bien te conteste el post del Drag&Drop (del cual nunca diste señales de vida
) el ucListView no tiene ni el metodo StartDrag como para hacerlo