Question

VB/BAT中复制文件到剪贴板的操作

我一个VB应用中需要复制文件（到剪贴板，而不是到一个指定名称的文件），就是用代码执行在操作系统下人工进行的以下操作：【选中一个文件(png格式图片)，然后Ctrl+C复制】，之后就可以在PowerPoint中粘贴。

Answer 1

例如把文件 "D:\新建文件夹\a.png" 复制到剪贴板。
XP系统可用的VB代码：

CreateObject("Shell.Application").NameSpace("D:\新建文件夹").ParseName("a.png").InvokeVerb "复制(&C)"

XP和win7通用的VB代码：

For Each v In CreateObject("Shell.Application").NameSpace("D:\新建文件夹").ParseName("a.png").Verbs
  If v.Name = "复制(&C)" Then v.DoIt
Next