VB里如何保存一个文本！

'条件：执行文件下有一个"a.txt"文件(可以换成其它路径),'以下是读文件Private

Sub

Form_Load()Open

App.Path

&

"/a.txt"

For

Input

As

#1Text1.SelText

=

StrConv(InputB(LOF(1),

#1),

vbUnicode)Close

#1End

Sub'以下是写文件Private

Sub

Command1_Click()Open

App.Path

&

"/a.txt"

For

Output

As

#1

'"Append"是添加，"Output"是覆盖原有数据Print

#1,

Text1.TextClose

#1End

Sub

先用一个按钮

private

sub

command1_click()

open

"c:\1.txt"

for

output

as

#1

print

#1,text1.text

close

#1

end

sub

直接写入，会覆盖原来的所有数据

private

sub

command1_click()

open

"c:\1.txt"

for

append

as

#1

print

#1,text1.text

close

#1

end

sub

追加写入，写在原来的数据后面，不会破坏原来的数据。

如果没有"c:\1.txt",这两种方法都会自动新建此文件

---