2个回答
展开全部
dim Fso as object
dim TTT as object
set Fso=CreateObject("Scripting.FileSystemObject")
dim path as string
path=app.path
if right(path,1)<>"\" then path= path & "\"
path=path & "save.txt"
set TTT=Fso.openTextFile(path,2,true)
TTT.writeLine "text1的内容是:" & text1.text & vbcrlf & vbcrlf
TTT.writeLine "text2的内容是:" & text2.text & vbcrlf & vbcrlf
TTT.close
set TTT=nothing
set Fso=nothing
追问
看不懂代码,能不能说出来这些有什么用
追答
没有VB基础就没戏了,像看天书
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |