Drag File dr Windows ke Form

Option Explicit

Private Sub Form_Load()
OLEDropMode = 1
End Sub

Private Sub Form_OLEDragDrop(Data As DataObject, _
Effect As Long, _
Button As Integer, _
Shift As Integer, _
X As Single, Y As Single)
Dim txt As String
Dim fname As Variant
For Each fname In Data.Files
txt = txt & fname & vbCrLf
Next fname
MsgBox txt
Effect = vbDropEffectNone
End Sub

No comments:

Post a Comment

Related Posts with Thumbnails