Släpper ner ett word doc på en image och vill spara ner dokumentet på en mapp i nätverket?

Hur gör man en copy funktion med dra&släpp, Hur får jag fram sökväg till fil .doc ?

Code:
<code>
Private Sub lblDragDrop_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)

'Droppa bifogade dokument.
On Error GoTo ImageDropDoc_OLEDragDrop_Error

If MsgBox(" Vill du spara dokumentet till det aktuella ärendet? ", vbYesNo, "Spara?") = vbYes Then
'Hur får jag fram sökväg till fil .doc ?
'FileCopy Path? & "\Droppadfil.doc", "\\Server\Mapp1\Doc102.doc"
End If

Exit Sub
ImageDropDoc_OLEDragDrop_Error:
MsgBox Err.Description, , "ImageDropDoc_OLEDragDrop_Error"

End Sub
</code>

Såhär:

filnamn = Data.Files(1)

Då får du fram sökvägen till filen du släppte...


/F

Kanon tack!