Ejemplos usando el Api de windows para Visual basic

81 - Obtener la lista de archivos que hay en el portapapeles

Volver al Listado Api - Anterior - Siguiente

El siguiente módulo lo que hace es recuperar del Clipboard la lista de ficheros y carpetas que haya y las agrega a un control ListBox usando el Api DragQueryFile y las Apis para el manejo del portapapeles de windows.

A la función Obtener_archivos que está declarada en un módulo bas, se le debe enviar el HWND del formulario y un array de tipo String donde se retorna la lista con los paths

Pasos para el ejemplo

Agregar un Command1
Un List1.
Luego copiar algunos archivos desde windows al portapapeles y presionar el Command1 para agregar los paths

Código fuente en un módulo bas

Option Explicit 'Funciones Api Public Declare Function IsClipboardFormatAvailable _ Lib "user32" ( _ ByVal wFormat As Long) As Long Public Declare Function OpenClipboard _ Lib "user32" ( _ ByVal hwnd As Long) As Long Public Declare Function GetClipboardData _ Lib "user32" ( _ ByVal wFormat As Long) As Long Public 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 Public Declare Function CloseClipboard _ Lib "user32" () As Long Public Const CF_HDROP = 15 Public Const MAX_PATH As Long = 260 'Función que obtiene la lista de archivos del clipboard '''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Function Obtener_archivos( _ Handle As Long, _ arrayArchivo() As String) As Long Dim hDrop As Long Dim nArchivo As Long Dim nameArchivo As String Dim i As Long Dim ret As Long ReDim arrayArchivo(0) If IsClipboardFormatAvailable(CF_HDROP) Then Call OpenClipboard(0&) hDrop = GetClipboardData(CF_HDROP) nArchivo = DragQueryFile(hDrop, -1&, "", 0) ReDim arrayArchivo(nArchivo) For i = 0 To nArchivo - 1 nameArchivo = Space(MAX_PATH) ret = DragQueryFile(hDrop, i, nameArchivo, Len(nameArchivo)) arrayArchivo(i + 1) = Left(nameArchivo, ret) Next End If Obtener_archivos = nArchivo 'Cierra el Clipboard CloseClipboard End Function

Código fuente en un formulario:

Option Explicit Private Sub Command1_Click() Dim arrayArchivo() As String, i As Long If Obtener_archivos(Me.hwnd, arrayArchivo) > 0 Then 'Recorremos el array con la lista de archivos y _ agregamos el path al ListBox For i = 1 To UBound(arrayArchivo) List1.AddItem arrayArchivo(i) Next End If End Sub

Relacionados a Clipboard y portapapeles

Buscar en Recursos vb