本文實例講述了VB打開與保存txt文件的方法。分享給大家供大家參考。具體如下：
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
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 |
希望本文所述對大家的VB程序設(shè)計有所幫助。
