Получить список файлов из Clipboard , Когда в форточке жмёшь на файлы Ctrl+C

Что-то я никак не пойму как сделать такую незамысловатую штуку ? Т.е. мне надо чтоб я в експлорере выделил ну там сколько то файлов, нажал Ctrl+C и в VB потом получил бы этот список файлов. Непойму никак как

Сообщение отредактировано: Molder - 07.06.05, 16:27

Копирую файл, проверяю буфер обмена: а там 0

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

SCINER, млин, как всегда и красиво и работает и то что надо !
ЗЫ так и думал что средствами VB этого не добиться...