VB6.0把文本框(或控件)文字保存到txt文档,有利于数据的读取和写入,对于某些功能来说很方便,比如说:写篇日志之类的,可以在自己的软件上写,保存就自动保存到自己的txt文档里。(之前我在百度经验也看到一个版本,但那个版本跟这个版本的算法不同)(代码填写黑体字)

2、定义一个字符串变量,把你想生成的文件路径名赋值给它。这个变量的定义可以用Dim放在按钮的Click事件中,也可以用Public放在模块中。以下代码可任选一个:①按钮的Click事件:肛舀辨乔Dim lj as Stringlj="文件路径"(如E:\123.txt)②模块:Public lj as Stringlj="文件路径"(如E:\123.txt)本经验用第一种方法。

3、在按钮的Click事件中,用Dir函数判断这个路径里有没有123.txt这个文件,然后如果没有的话创建文件,让文件的句柄为#1。代码:If Dri(lj) = "&鳎溻趄酃quot; then Open lj For Output As #1 ......End If

5、效果如图:

3、然后把上面的Dim lj as Stringlj="文件路径"(如E:\123.txt)改为Dim lj as Str足毂忍珩inglj="文件路径" & Text2.text & ".txt"(如"E:\" & Text2.text & ".txt")或者把Public lj as Stringlj="文件路径"(如E:\123.txt)改为Public lj as Stringlj="文件路径" & Text2.text & ".txt"(如"E:\" & Text2.text & ".txt")
