Dim fso, f1
fpath="c\123.txt" '设置所写文本路径
ftext = "写入文本文件件123.txt的内容,可换成你数据库的内容" '设置所写文本内容
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile(""& fpath &"", True)
f1.WriteLine(""& ftext &"") '向文件写入文本框里的内容.
f1.Close
set f1=nothing