例如,把文件"E:\新建文件夾\a.txt"復(fù)制到剪貼板
成都創(chuàng)新互聯(lián)專注于臨湘網(wǎng)站建設(shè)服務(wù)及定制,我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗。 熱誠為您提供臨湘營銷型網(wǎng)站建設(shè),臨湘網(wǎng)站制作、臨湘網(wǎng)頁設(shè)計、臨湘網(wǎng)站官網(wǎng)定制、成都微信小程序服務(wù),打造臨湘網(wǎng)絡(luò)公司原創(chuàng)品牌,更為您提供臨湘網(wǎng)站排名全網(wǎng)營銷落地服務(wù)。
CreateObject("Shell.Application").NameSpace("E:\新建文件夾").ParseName("a.txt").InvokeVerb?"復(fù)制(C)"
復(fù)制文件夾不用剪貼板,使用系統(tǒng)文件操作對象就好了
CreateObject("scripting.filesystemobject").copyfolder "c:\Program Files", "D:\Program Files"
用Computer類里的Clipboard的幾個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)
當(dāng)前文章:vb點虐
訪問剪貼板 vb剪切文件
本文來源:http://bm7419.com/article14/ddehdde.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站維護、建站公司、網(wǎng)站建設(shè)、商城網(wǎng)站、動態(tài)網(wǎng)站、App設(shè)計
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)