sacar los nombres de archivo del clipboard

[A.H.H]

Hola alguien sabe como se podria sacar un listado de los nombres o rutas de los archivos que estan en el clipboard si es que este los tuviese?
el texto y las imagenes pues ya se, pero quisiera la ruta de los archivos o los nombres.
gracias

[pkj]

He encontrado esto para sacar los ficheros del portapapeles en la página de microsoft y funciona bien.

http://support.microsoft.com/kb/231721

Os pongo la dirección, pero también incluyo el código por si desaparece de Micro$oft.

Para probarlo solo necesitais un form con un ListBox List1 y un Botón Command1:

Código :

Option Explicit
 
Private Const CF_HDROP = 15
 
Private Type POINT
    x As Long
    y As Long
End Type
 
Private Type DROPFILES
    pFiles As Long
    pt As POINT
    fNC As Long
    fWide As Long
End Type
 
Private Declare Function GlobalSize Lib "kernel32" _
   (ByVal hMem As Long) As Long
Private Declare Function GlobalLock Lib "kernel32" _
   (ByVal hMem As Long) As Long
Private Declare Function GlobalUnlock Lib "kernel32" _
   (ByVal hMem 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 Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
   (Destination As Any, Source As Any, ByVal Length As Long)
 
Private Sub ShowFilesOnClipboard()
   Dim lHandle As Long
   Dim lpResults As Long
   Dim lRet As Long
   Dim df As DROPFILES
   Dim strDest As String
   Dim lBufferSize As Long
   Dim arBuffer() As Byte
   Dim vNames As Variant
   Dim i As Long
 
   If OpenClipboard(0) Then
      lHandle = GetClipboardData(CF_HDROP)
      ' If you don't find a CF_HDROP, you don't want to process anything
      If lHandle > 0 Then
         lpResults = GlobalLock(lHandle)
         
         lBufferSize = GlobalSize(lpResults)
         ReDim arBuffer(0 To lBufferSize)
         
         CopyMemory df, ByVal lpResults, Len(df)
         Call CopyMemory(arBuffer(0), ByVal lpResults + df.pFiles, _
                         (lBufferSize - Len(df)))
 
         If df.fWide = 1 Then
            ' it is wide chars--unicode
            strDest = arBuffer
         Else
            strDest = StrConv(arBuffer, vbUnicode)
         End If
         GlobalUnlock lHandle
         vNames = Split(strDest, vbNullChar)
         i = 0
         While Len(vNames(i)) > 0
            List1.AddItem vNames(i)
            i = i + 1
         Wend
      End If
   End If
   CloseClipboard
End Sub
 
Private Sub Command1_Click()
   Call ShowFilesOnClipboard
End Sub
 

Un saludo.

[A.H.H]

Muchisimas Gracias ' PKJ ' es justo lo que necesitaba y funciona a la perfección!

GRACIAS