Option Explicit

 

Private Const CF_HDROP = 15

Private Declare Function lread Lib "kernel32" Alias "_lread" (ByVal hFile As Long, lpBuffer As Any, ByVal wBytes As Long) As Long

Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function CloseClipboard Lib "user32" () As Long

Private Declare Function GetClipboardData Lib "user32" (ByVal wFormat As Long) As Long

Private Declare Function IsClipboardFormatAvailable Lib "user32" (ByVal wFormat As Long) As Long

Private Declare Function DragQueryFile Lib "shell32.dll" Alias "DragQueryFileA" (ByVal HDROP As Long, ByVal UINT As Long, ByVal lpStr As String, ByVal ch As Long) As Long

 

Private Sub Command1_Click()

  Dim i As Long

  Dim Tmp As String

  Dim HDROP As Long

  Dim lFiles As Long

  Call List1.Clear

  If IsClipboardFormatAvailable(CF_HDROP) = 0 Then Exit Sub

  If OpenClipboard(hwnd) = 0 Then Exit Sub

  HDROP = GetClipboardData(CF_HDROP)

  lFiles = DragQueryFile(HDROP, -1&, "", 0)

  Tmp = Space(260)

  For i = 0 To lFiles - 1

    Call DragQueryFile(HDROP, i, Tmp, Len(Tmp))

    List1.AddItem Tmp

  Next

  CloseClipboard

End Sub