复制文件夹不用剪贴板,使用系统文件操作对象就好了
“真诚服务,让网络创造价值”是我们的服务理念,创新互联团队十余年如一日始终坚持在网站建设领域,为客户提供优质服。不管你处于什么行业,助你轻松跨入“互联网+”时代,PC网站+手机网站+公众号+成都微信小程序。
CreateObject("scripting.filesystemobject").copyfolder "c:\Program Files", "D:\Program Files"
通过:
Clipboard.GetText
Clipboard.GetData
可以得到系统剪贴板的内容
如果剪贴板中的内容是文字,Clipboard.GetFormat(1)=True 。
获得文字直接用
Clipboard.GetText
获得图片可以用
Clipboard.GetData
设置文字直接用
Clipboard.SetText
设置图片可以用
Clipboard.SetData
清空
Clipboard.Clear
检测剪贴板中的内容
Clipboard.GetFormat(1)
返回True则文字
返回False则其他
Dim p1 As New Point(0, 0)
Dim p2 As New Point(My.Computer.Screen.WorkingArea.Width, My.Computer.Screen.WorkingArea.Height) '除工具栏全屏
Dim pic As New Bitmap(p2.X, p2.Y)
Using g As Graphics = Graphics.FromImage(pic)
g.CopyFromScreen(p1, p1, p2)
PictureBox1.Image = pic
End Using
Clipboard.SetImage(PictureBox1.Image)
截图到PictureBox1中显示,然后在把PictureBox1.image放到剪切板中
例如,把文件"E:\新建文件夹\a.txt"复制到剪贴板
CreateObject("Shell.Application").NameSpace("E:\新建文件夹").ParseName("a.txt").InvokeVerb "复制(C)"
网页标题:vb.net剪切板 vbs 剪切板
文章路径:https://www.cdcxhl.com/article24/hiigce.html
成都网站建设公司_创新互联,为您提供定制网站、网站营销、软件开发、关键词优化、网站策划、建站公司
声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联