Question

怎么把Data.Files(1)转成可以直接引用的路径

Private Sub List1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
List1.AddItem Data.Files(1)

Answer 1

为WM_DROPFILES消息定义回调函数OnDropFiles(HDROP hDropInfo)，用DragQueryFile函数就可以得到路径了。可以参考一下MSDN。