si ça peut t'être utile :
si tu met ce code sur un nouvelle form, ça permettra de drag dropper c: vers une autre aplication
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
OLEDrag
End Sub
Private Sub Form_OLEStartDrag(Data As DataObject, AllowedEffects As Long)
Data.Clear
Data.SetData , 15
Data.Files.Add "C:\"
AllowedEffects = 3
End Sub
|
--------------
ARF