大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
例如,把文件"E:\新建文件夹\a.txt"复制到剪贴板
创新互联建站专业为企业提供东港网站建设、东港做网站、东港网站设计、东港网站制作等企业网站建设、网页设计与制作、东港企业网站模板建站服务,十多年东港做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。
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
复制文件夹不用剪贴板,使用系统文件操作对象就好了
CreateObject("scripting.filesystemobject").copyfolder "c:\Program Files", "D:\Program Files"
Clipboard.SetText()是方法,必须给它传递参数才能将内容保存在剪切板上。
Clipboard.SetText(TextBox1.Text);
SelectedText是只读属性,只能读取文本框内选定的内容,而不能对其赋值。
Clipboard.GetText()用于获得剪切板内的内容。如:
TextBox2.Text=Clipboard.GetText();