1 生成txt文件。
DimSaveFileDialog1AsNewSaveFileDialog() '创建一个保存对话框
SaveFileDialog1.Filter ="txt files (*.txt)|*.txt" '设置扩展名
IfSaveFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OKThen '如果确定保存
My.Computer.FileSystem.WriteAllText(SaveFileDialog1.Filename, Textbox1.Text,False) '保存文本,False表示不追加文本，直接覆盖其内容
EndIf
原文链接：http://zhidao.baidu.com/link?url=g2rWL-XFJ8DRD6aRPu5k8Ue8sIT4UNL6vBuXn4picx1RS-wEZDqN28xgSr-qfiDQ0YkPeyynzjQVdvw5nU32MggeHv6t5BCdeMgQEZl910i
