VB.net 剪切板的操作

復(fù)制文件夾不用剪貼板，使用系統(tǒng)文件操作對(duì)象就好了

網(wǎng)站建設(shè)哪家好，找成都創(chuàng)新互聯(lián)公司！專注于網(wǎng)頁設(shè)計(jì)、網(wǎng)站建設(shè)、微信開發(fā)、小程序開發(fā)、集團(tuán)企業(yè)網(wǎng)站建設(shè)等服務(wù)項(xiàng)目。為回饋新老客戶創(chuàng)新互聯(lián)還提供了三原免費(fèi)建站歡迎大家使用！

CreateObject("scripting.filesystemobject").copyfolder "c:\Program Files", "D:\Program Files"

VB.NET如何獲取剪切板里面的內(nèi)容

用Computer類里的Clipboard的幾個(gè)Get函數(shù)

如獲取剪貼板里的文本

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

設(shè)置剪貼板里的文本

My.Computer.Clipboard.SetText(Now)

VB.NET怎么復(fù)制文件到剪切板，不是復(fù)制文件內(nèi)容！

例如，把文件"E:\新建文件夾\a.txt"復(fù)制到剪貼板

CreateObject("Shell.Application").NameSpace("E:\新建文件夾").ParseName("a.txt").InvokeVerb?"復(fù)制(C)"