关于OLE拖放，在线等待!急！！！

Question

Option ExplicitPrivate Sub Form_Load()
    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 sCom As String
    Dim sFile As String
    sCom = Command
    txtFile.Text = sCom & vbCrLf
    Dim nCount As Integer, nIndex As Integer
    Dim sName As String
    With Data
'        If .GetFormat(vbCFFiles) = True Then
            'sName = .GetData(3)
            nCount = .Files.Count
            For nIndex = 1 To nCount
                sFile = .Files.Item(nIndex) & vbCrLf
                txtFile.Text = txtFile.Text & sFile
'                OLE.CreateEmbed sFile
            Next
'        Else
'        End If
    End With
End Sub

Answer 1

文件的路径是指 sFile 吗？