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
评论