VB6.0拷贝文件后手动粘贴

2025-03-02 10:35:39

推荐回答（1个）

回答1：

'剪贴版数据格式定义
Private Type POINTAPI
x As Long
y As Long
End Type
Private Type DROPFILES
pFiles As Long
pt As POINTAPI
fNC As Long
fWide As Long
End Type
Private Const CF_HDROP = 15
Private Const GMEM_MOVEABLE = &H2
Private Const GMEM_ZEROINIT = &H40
Private Const GHND = (GMEM_MOVEABLE Or GMEM_ZEROINIT)
Private Declare Function EmptyClipboard Lib "user32" () 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 SetClipboardData Lib "user32" (ByVal wFormat _
As Long, ByVal hMem As Long) As Long
Private Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags _
As Long, ByVal dwBytes As Long) As Long
Private Declare Function GlobalFree 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 Sub CopyMem Lib "kernel32" Alias "RtlMoveMemory" _
(Destination As Any, Source As Any, ByVal Length As Long)
Dim FileFullName As String
Public Function clipCopyFiles(FileName As String) As Boolean
Dim df As DROPFILES
Dim hGlobal As Long
Dim lpGlobal As Long

'清除剪贴版中现存的数据
If OpenClipboard(0&) Then
Call EmptyClipboard
FileName = FileName & vbNullChar
'为剪贴版拷贝操作分配相应大小的内存
hGlobal = GlobalAlloc(GHND, Len(df) + Len(FileName))
If hGlobal Then
lpGlobal = GlobalLock(hGlobal)
df.pFiles = Len(df)
Call CopyMem(ByVal lpGlobal, df, Len(df))
Call CopyMem(ByVal (lpGlobal + Len(df)), ByVal FileName, Len(FileName))
Call GlobalUnlock(hGlobal)
'将数据拷贝到剪贴版上
If SetClipboardData(CF_HDROP, hGlobal) Then
clipCopyFiles = True
End If
Call GlobalFree(hGlobal)
End If
Call CloseClipboard
End If
End Function

Sub Button1_Click()
'拷贝文件到Clipboard
FileFullName = "d:\test\a.txt"
If clipCopyFiles(FileFullName) Then
MsgBox "拷贝文件成功.", , Success
Else
MsgBox "无法拷贝文件...", , Failure
End If
End Sub

最新问答

人教版语文六年级上册第三课小练笔

种多肉植物草木灰可以泥炭混用吗?

数学一考什么？

我现在是自考在校生，想考CFA。请问下CFA是3级都要一次性通过还是可以累计什么的

国外文凭到底在中国有没有用

下面的图片是哪一部电影或电视剧的啊？

纽约大学金融业出来做什么？年薪多少？回国或去香港发展前途怎样？

我的电脑为什么下载了PPT却不能使用呢？

请问嫦娥2号一级残骸和整流罩坠落的危害？

刘家家谱建字辈后面是什么？