从品牌网站建设到网络营销策划,从策略到执行的一站式服务
复制文件夹不用剪贴板,使用系统文件操作对象就好了
网站建设哪家好,找成都创新互联公司!专注于网页设计、网站建设、微信开发、小程序开发、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了三原免费建站欢迎大家使用!
CreateObject("scripting.filesystemobject").copyfolder "c:\Program Files", "D:\Program Files"
用Computer类里的Clipboard的几个Get函数
如获取剪贴板里的文本
Dim c As New Microsoft.VisualBasic.Devices.Computer
MsgBox(c.Clipboard.GetText())
可以直接用My 里的
MsgBox(My.Computer.Clipboard.GetText())
获取图片
Me.BackgroundImage = My.Computer.Clipboard.GetImage()
在获取前确定剪贴板里有没有文本
If My.Computer.Clipboard.ContainsText Then
MsgBox(My.Computer.Clipboard.GetText)
End If
设置剪贴板里的文本
My.Computer.Clipboard.SetText(Now)
例如,把文件"E:\新建文件夹\a.txt"复制到剪贴板
CreateObject("Shell.Application").NameSpace("E:\新建文件夹").ParseName("a.txt").InvokeVerb "复制(C)"
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图