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 #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