VB6 代码管家-拖拽取路径
发表于 2024年12月8日 22:17
返回列表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 '逐个读取文件路径,支持多个路径
Print Data.Files(i) '逐个打印文件路径
Next
End Sub