打开/保存 .txt 文件

作者: 温柔男神帅帅哒
来源: 51数据库
2022-08-17

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

推荐阅读