VB打开与保存txt文件的方法的案例分享

本文实例讲述了VB打开与保存txt文件的方法。分享给大家供大家参考。具体如下：

Private Sub cmdsave_Click()

Dim filelocation As String

' loads save as box

commondialog1.ShowSave

filelocation = commondialog1.FileName

' append saves over file if it assists

Open filelocation For Append As #1

Print #1, text1.text

Close #1

End Sub

Private Sub cmdopen_Click()

Dim filelocation As String

' show open box

commondialog1.ShowOpen

filelocation = commondialog1.FileName

' input files into text1.text

Open filelocation For Input As #1

Do Until EOF(1)

Input #1, Data

text1.text = text1.text + Data + vbNewLine

EOF (1)

Loop

Close #1

End Sub