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 拖拽文件显示路径
最新推荐文章于 2024-04-20 15:05:59 发布