復(fù)制文件夾不用剪貼板,使用系統(tǒng)文件操作對(duì)象就好了
“真誠(chéng)服務(wù),讓網(wǎng)絡(luò)創(chuàng)造價(jià)值”是我們的服務(wù)理念,創(chuàng)新互聯(lián)團(tuán)隊(duì)十余年如一日始終堅(jiān)持在網(wǎng)站建設(shè)領(lǐng)域,為客戶提供優(yōu)質(zhì)服。不管你處于什么行業(yè),助你輕松跨入“互聯(lián)網(wǎng)+”時(shí)代,PC網(wǎng)站+手機(jī)網(wǎng)站+公眾號(hào)+成都微信小程序。
CreateObject("scripting.filesystemobject").copyfolder "c:\Program Files", "D:\Program Files"
通過(guò):
Clipboard.GetText
Clipboard.GetData
可以得到系統(tǒng)剪貼板的內(nèi)容
如果剪貼板中的內(nèi)容是文字,Clipboard.GetFormat(1)=True 。
獲得文字直接用
Clipboard.GetText
獲得圖片可以用
Clipboard.GetData
設(shè)置文字直接用
Clipboard.SetText
設(shè)置圖片可以用
Clipboard.SetData
清空
Clipboard.Clear
檢測(cè)剪貼板中的內(nèi)容
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"復(fù)制到剪貼板
CreateObject("Shell.Application").NameSpace("E:\新建文件夾").ParseName("a.txt").InvokeVerb?"復(fù)制(C)"
網(wǎng)頁(yè)標(biāo)題:vb.net剪切板 vbs 剪切板
文章路徑:http://m.rwnh.cn/article24/hiigce.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供定制網(wǎng)站、網(wǎng)站營(yíng)銷、軟件開(kāi)發(fā)、關(guān)鍵詞優(yōu)化、網(wǎng)站策劃、建站公司
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)
營(yíng)銷型網(wǎng)站建設(shè)知識(shí)