Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
创新互联公司专注为客户提供全方位的互联网综合服务，包含不限于网站建设、成都做网站、武都网络推广、重庆小程序开发、武都网络营销、武都企业策划、武都品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；创新互联公司为所有大学生创业者提供武都建站搭建服务，24小时服务热线：13518219792，官方网址：www.cdcxhl.com
System.IO.Directory.CreateDirectory("C:\我的文件夹") '创建目录,路径就自己改吧,如果路径存在,就没必要创建了
System.IO.File.Create("C:\我的文件夹\我的文件.doc") '在指定目录下创建word文档
End Sub
按你说的方式，需要用到钩子
建议你用File类进行操作，保存为TXT文件
祝好运，望采纳
设计一个窗口，添加一个名为textBox1的System.Windows.Forms.TextBox，
添加一个名为button1的System.Windows.Forms.Button。
为button1的单击事件添加如下处理函数：
Sub Button1Click(sender As Object, e As EventArgs)
'f是你的文本文件的文件名
Const f As String="t.txt"
Dim sw As System.IO.StreamWriter=Nothing
Try
If Not System.IO.File.Exists(f) Then
sw=System.IO.File.CreateText(f)
Else
sw=New System.IO.StreamWriter(f,True)
End If
sw.WriteLine(textBox1.Text)
Finally
If sw IsNot Nothing Then
sw.close()
End If
End Try
End Sub
举个例子：
先引入命名空间：
Imports
System.IOImports
System.Security.AccessControl
代码：
Dim
sec
As
DirectorySecurity
=
New
DirectorySecurityDim
rule
As
FileSystemAccessRule
=
New
FileSystemAccessRule("Administrator",
FileSystemRights.Delete,
AccessControlType.Allow)sec.AddAccessRule(rule)Directory.CreateDirectory("C:\test",
sec)
这段代码就是以
Administrator
帐户
在
C:\
创建
test
文件夹。