How to open and save txt files with VB

The example in this article describes how to open and save txt files with VB. Share it with everyone for your reference. The details are as follows:

 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 #1End SubPrivate 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 #1Do Until EOF(1) Input #1, Data text1.text = text1.text + Data + vbNewLine EOF (1) Loop Close #1End Sub

I hope this article will be helpful to everyone's VB programming.