vb关于对剪贴板的操作

Question

我现在有一个需求，想用vb6.0实现。
我把我的操作阐述一下，希望有高人指点一下。
1）打开记事本，输入“testaaaaaaaa”,再ctrl+a,ctrl+c,现在testaaaaaaaa应该在剪贴板里了。2）现在想写一个vb程序，把剪贴板的内容输出到一个指定的文件里。找了很多资料，就是没能实现，希望谁能给完成一下。谢谢~~！

Answer 1

str= Clipboard.GetText(vbCFText)Open "TESTFILE" For Output As #1   
Write #1, str
Close #1 
  
*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码) 
http://feiyun0112.cnblogs.com/

Answer 2

        Dim str As String
        str = My.Computer.Clipboard.GetText()
        If My.Computer.Clipboard.ContainsText = True Then
            Try
                Dim sw As New StreamWriter("C:\Documents and Settings\forest23\桌面\1.txt")
                sw.Write(str)
                sw.Close()
            Catch ex As Exception
                MsgBox(e.ToString)
            End Try
        End If