例如,把文件"E:\新建文件夾\a.txt"復制到剪貼板
創(chuàng)新互聯(lián)建站專業(yè)為企業(yè)提供東港網(wǎng)站建設、東港做網(wǎng)站、東港網(wǎng)站設計、東港網(wǎng)站制作等企業(yè)網(wǎng)站建設、網(wǎng)頁設計與制作、東港企業(yè)網(wǎng)站模板建站服務,十多年東港做網(wǎng)站經(jīng)驗,不只是建網(wǎng)站,更提供有價值的思路和整體網(wǎng)絡服務。
CreateObject("Shell.Application").NameSpace("E:\新建文件夾").ParseName("a.txt").InvokeVerb?"復制(C)"
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim my_text() As String
my_text = RichTextBox1.Lines
System.Array.Reverse(my_text)
ReDim Preserve my_text(my_text.GetUpperBound(0) - 3)
System.Array.Reverse(my_text)
RichTextBox1.Lines = my_text
End Sub
復制文件夾不用剪貼板,使用系統(tǒng)文件操作對象就好了
CreateObject("scripting.filesystemobject").copyfolder "c:\Program Files", "D:\Program Files"
Clipboard.SetText()是方法,必須給它傳遞參數(shù)才能將內(nèi)容保存在剪切板上。
Clipboard.SetText(TextBox1.Text);
SelectedText是只讀屬性,只能讀取文本框內(nèi)選定的內(nèi)容,而不能對其賦值。
Clipboard.GetText()用于獲得剪切板內(nèi)的內(nèi)容。如:
TextBox2.Text=Clipboard.GetText();