在vb程序中如何获取剪贴板中所复制的文件的路径？

感谢您使用微软产品。您可以参考以下方法：
1． 在Form1上放一个CommandButton和一个ListBox控件。
2． 在Form1中贴入以下代码。它会在ListBox中列出您在Windows Explorer中Copy的文件名。
Option ExplicitPrivate Const CF_HDROP = 15Private Type POINT
    x As Long
    y As Long
End TypePrivate Type DROPFILES
    pFiles As Long
    pt As POINT
    fNC As Long
    fWide As Long
End TypePrivate 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 LongPrivate 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 LongPrivate 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 SubPrivate Sub Command1_Click()
   Call ShowFilesOnClipboard
End Sub
- 微软全球技术中心 VB技术支持立即参加微软认证的“最有价值专家”评选，赢取价值万元以上的丰富奖品！详情参见(http://www.csdn.net/expert/Topic/456/456919.shtm)本贴子以“现状”提供且没有任何担保，同时也没有授予任何权利。具体事项可参见使用条款(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。