如何将文件复制到windows剪贴板

ljp19000 · 发表于 2012-4-10 20:29

我们常用的filecopy或是fso都是复制文件到哪，如何将文件复制到windows剪贴板，使得用户可以用鼠标右键自由粘贴？
注意：是windows剪贴板，不是office剪贴板！

sscylh · 发表于 2012-4-10 20:46

复制一次就行，这样既复制到了office粘贴板，又复制到了windows 粘贴板，但是windows粘贴板只能保存最近一次复制的东西，而office粘贴板可以保存多次（最多20次）

ljp19000 · 发表于 2012-4-10 21:21

sscylh 发表于 2012-4-10 20:46
复制一次就行，这样既复制到了office粘贴板，又复制到了windows 粘贴板，但是windows粘贴板只能保存最近一次 ...

我要复制的是文件，office剪贴板是不能复制的

ljp19000 · 发表于 2012-4-11 19:51

继续求助，继续求助，继续求助

liucqa · 发表于 2012-4-11 19:59

用API吧，论坛的搜索剪贴板API

joforn · 发表于 2012-4-11 22:55

本帖最后由 joforn 于 2021-9-23 10:32 编辑

原来放在本楼的代码时代久远不适用64位，删除处理。
如果有需要代码的去下面的帖子里找代码：
https://club.excelhome.net/thread-1580356-1-1.html

joforn · 发表于 2012-4-11 23:22

注意：上面的函数仅仅设置了剪切板中的内容，所以要真的复制或剪切一个文件还要手动在Explorer中右键“粘贴”。
在其它的地方直接调用 CutOrCopyFiles "C:\Boot.ini" 方式复制一个文件。或使用下面的方式复制多个文件：
  Dim FileList() As String
  Redim FileList(0 to 5)
  FileList(0)="C:\Boot.ini"
  ....
  Filelist(5)="D:\1.TXT"

  CutOrCopyFiles FileList

joforn · 发表于 2012-4-11 23:25

还有几点忘了说明了：
一、CopyMode为False时表示剪切操作，默认为True，表示复制操作；
二、如果你设置的文件名是一个目录将复制或剪切整个目录；
三、如果你的文件列表中有一个文件路径不存在，在粘贴时会出错。。。。

ljp19000 · 发表于 2012-4-12 09:49

liucqa 发表于 2012-4-11 19:59
用API吧，论坛的搜索剪贴板API

第N次谢谢 liucqa 大侠

ljp19000 · 发表于 2012-4-12 09:51

joforn 发表于 2012-4-11 23:25
还有几点忘了说明了：
一、CopyMode为False时表示剪切操作，默认为True，表示复制操作；
二、如果你设置的 ...

joforn 大侠，我爱你！

		自动登录	找回密码
密码			免费注册

[求助] 如何将文件复制到windows剪贴板

评分

评分

评分