VB 打开和保存文本

Private Sub SaveText_Click()

Dim i As Long

CommonDialog1.CancelError = True

On Error GoTo ErrHandler

CommonDialog1.Filter = "文档文件(*.txt)|*.txt|所有文件(*.*)|*.*"

CommonDialog1.ShowSave

Open CommonDialog1.FileName For Output As #1

Print #1, Text2.Text

Close #1

MsgBox "当前文本框内容保存成功!", vbExclamation + vbOKOnly, "保存成功"

ErrHandler:

Exit Sub

End Sub

Private Sub OpenText_Click()

CommonDialog1.CancelError = True

On Error GoTo ErrHandler

CommonDialog1.Filter = "文档文件(*.txt)|*.txt|所有文件(*.*)|*.*"

CommonDialog1.ShowOpen

Open CommonDialog1.FileName For Input As #1

Text2.SelText = StrConv(InputB$(LOF(1), 1), vbUnicode)

Close #1

Text2.SelStart = 0

ErrHandler:

Exit Sub

End Sub