Question

vb中如何获得拖入窗口的文件的地址？？急

vb中如何获得拖入窗口的文件的地址？？急
获得目录也可以

Answer 1

Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim I As Long
On Error Resume Next
For I = 1 To Data.Files.Count
Print Data.Files(I)
Next
End Sub
窗体OLEdropMode＝1

Answer 2

Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Long
For i = 1 To Data.Files.Count
Text1.Text = Text1.Text + Data.Files.Item(i) + Chr(13) + Chr(10)
Next
End Sub