例如,把文件"E:\新建文件夾\a.txt"復(fù)制到剪貼板
10多年的撫順網(wǎng)站建設(shè)經(jīng)驗(yàn),針對(duì)設(shè)計(jì)、前端、開(kāi)發(fā)、售后、文案、推廣等六對(duì)一服務(wù),響應(yīng)快,48小時(shí)及時(shí)工作處理。成都營(yíng)銷網(wǎng)站建設(shè)的優(yōu)勢(shì)是能夠根據(jù)用戶設(shè)備顯示端的尺寸不同,自動(dòng)調(diào)整撫順建站的顯示方式,使網(wǎng)站能夠適用不同顯示終端,在瀏覽器中調(diào)整網(wǎng)站的寬度,無(wú)論在任何一種瀏覽器上瀏覽網(wǎng)站,都能展現(xiàn)優(yōu)雅布局與設(shè)計(jì),從而大程度地提升瀏覽體驗(yàn)。創(chuàng)新互聯(lián)建站從事“撫順網(wǎng)站設(shè)計(jì)”,“撫順網(wǎng)站推廣”以來(lái),每個(gè)客戶項(xiàng)目都認(rèn)真落實(shí)執(zhí)行。
CreateObject("Shell.Application").NameSpace("E:\新建文件夾").ParseName("a.txt").InvokeVerb?"復(fù)制(C)"
寫的不是很清楚,理解為復(fù)制文件
File.Copy 方法
Copy(string, String) 將現(xiàn)有文件(string路徑)復(fù)制到新文件(string路徑)。 不允許覆蓋同名的文件。
Copy(String, String, Boolean) 將現(xiàn)有文件(string路徑)復(fù)制到新文件(string路徑)。 允許覆蓋同名的文件。
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Clipboard.SetDataObject(TextBox1.Text)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox1.Text = Clipboard.GetDataObject().GetData(DataFormats.Text, False)
End Sub
你的目的其實(shí)不是要實(shí)現(xiàn)"復(fù)制"這個(gè)過(guò)程, 而是想逐行取得每行的數(shù)據(jù)吧?
如果是這樣, 可以用這個(gè)辦法:
strline = RichTextBox1.lines(lineno)
lineno 是行號(hào), 從0開(kāi)始.
每按一次按鈕, 取到第lineno的值RichTextBox1.lines(lineno), 然后讓lineno加1就可以了.
For i = 0 To List.ListCount - 1
If List.Selected(i) Then
Text.Text = Text.Text + List.List(i)
End If
Next