拖放文件获取文件名称和文件路径?请教高手？

Question

Option ExplicitPrivate Sub Form_Load()
    Me.AutoRedraw = True
    Me.OLEDropMode = 1
End SubPrivate Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)    Dim Fl
    If Data.GetFormat(vbCFFiles) Then
        Me.Cls
        For Each Fl In Data.Files
            Print Fl
        Next
    End If
End Sub试试看效果！