Private Sub Form_Load()
Form1.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)
For i = 1 To Data.Files.Count '逐个读取文件路径
Debug.Print Data.Files(i)
Next
End Sub
Form1.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)
For i = 1 To Data.Files.Count '逐个读取文件路径
Debug.Print Data.Files(i)
Next
End Sub
摘自:网络整理
★VB部分相关文章推荐:★