vb 将文本文件的内容复制到剪贴板

怎么样才能在不打开*.txt文件条件下
将里面的东西复制到剪贴板。

复制到剪切板的主要代码：
clipboard.settext str

示例（示例文件1.txt）：
    open "c:\1.txt" for input as #1
    clipboard.clear
    clipboard.settext input(lof(1), 1)
    close #1其中的
clipboard.clear表示清空剪切板（推荐清空一次）


如果是使用相对路径的，"c:\1.txt"改为

app.path & "\1.txt"

读取剪切板主要代码：
s = clipboard.gettext()

新建一窗体，添加Command1,text1 Private Sub Command1_Click() Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) '上面两条语句是的所有内容 Clipboard.SetText Form1.Text1.SelText, 1 '这条语句是将tex1.text里的内容全部复制到剪贴板 End Sub 如果你不想将text1.text里面的内容全部复制，就可以编写以下语句... 再添加一个Command2 Private Sub Command2_Click() Clipboard.SetText Form1.Text1.SelText, 1 End Sub 这个按扭的作用是将选中的内容复制到剪贴板。 我好象理解错了问题，不好意思。

新建一窗体，添加Command1,Label1 Private Sub Command1_Click() Dim frfile As Integer Dim Lstr As String frfile = FreeFile Open "C:\1.txt" For Input As #frfile While Not EOF(frfile) Line Input #frfile, Lstr Label1.Caption = Label1.Caption & Lstr & vbCrLf Wend Close #frfile Clipboard.SetText Label1.Caption End Sub