Question

VB中 如何实现保存txt文档

如 点击command1 把text1里的内容 保存在程序的根目录下 如何实现

Answer 1

Open App.path & "\1.TXT" For Output as #1
Print #1, Text1.Text
Close #1

'保存在程序目录下的1.TXT

追问

谢了

追答

如果满意请采纳为正确答案，谢谢

Answer 2

先引用microsoft scripting runtime
Public objFSO As FileSystemObject
Public objText As TextStream
sub command1_click()
Set objFSO = New FileSystemObject
Set objText = objFSO.OpenTextFile(文件名称,forwriting,true,TristateUseDefault)
objtext.write(text1.text)
objtext.close
end sub

追问

没简单点的吗？

追答

别的方法也有
就得上百度搜一下
我常用这个
而且个人感觉不麻烦
objfso还有许多功能

追问

点击command1 把text1里的内容 保存在程序的根目录下 重命名为1.txt 如何实现

追答

把文件名称 换成"1.txt"