Hola compañero, es como dice
Orlando tanto en archivo como en carpeta da el mismo resultado :)
Por ejemplo un drop a un textbox "Text1"
Código: Seleccionar todo
Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button _
As Integer, Shift As Integer, X As Single, Y As Single)
'Drop
Text1.Text = Data.Files(1)
End Sub
En las propiedades deben estar de la siguiente manera:
OLEDragMode = 0 - Manual
OLEDropMode = 1 - Manual
==================
A un form sería asi:
Código: Seleccionar todo
Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button _
As Integer, Shift As Integer, X As Single, Y As Single)
'Drop
Text1.Text = Data.Files(1)
End Sub
En las propiedades debe estar:
OLEDropMode = 1 - Manual
=================
Seguro que sabes esto, pero ya que estamos explico un poco asi el que vea entienda
Saludos