Är det någon som vet hur man gör för att få en dragdrop från t.ex. Explorer (Utforskaren) till en textruta, så att filnamnet (hela sökvägen) hamnar i textrutan. Och om det går - fungerar det i VBA eller måste jag göra en egen komponent hemma och ta med mig till jobbet?

Tacksam för svar snarast (helst till på torsdag)

/Niklas Jansson

Enkelt... Gör bara så här:

'Skapa en textruta och klistra in följande kod...
'Du kan ju sätta Textrutans OLEDropMode = vbOLEDropManual
'I design läge så slipper du göra det i form_Load

Option Explicit

Private Sub Form_Load()
Text1.OLEDropMode = vbOLEDropManual
End Sub

Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim vTemp As Variant
For Each vTemp In Data.Files
Text1.Text = Text1.Text & " " & vTemp
Next
End Sub

Private Sub Text1_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)
If Data.Files.Count Then
Effect = vbDropEffectCopy
End If
End Sub

Ok. Tack för hjälpen. Det är i och för sig försent, eftersom anställningen redan slutat, men ändå. Dessutom funkar det inte i VBA. Det finns ingen OLEDropMode-egenskap i VBA-textrutan :(.

/Niklas Jansson