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
    
    

    希望本文所述对大家的VB程序设计有所帮助。