vb更改文本文件内容

vb更改文本文件内容

添加按钮（修改）
Private Sub Command1_Click()
Open App.Path & "\setting.ini" For Output As #1
For i = 1 To 5
Write #1, Text1(i - 1).Text
Next
Close (1)
End Sub

Private Sub Form_Load()

Dim a As String
If Dir(App.Path & "\setting.ini") <> "" Then
Open App.Path & "\setting.ini" For Input As #1
For i = 1 To 5
Line Input #1, a
Text1(i - 1).Text = a
Next
Close (1)
Else
Open App.Path & "\setting.ini" For Output As #1
Close (1)
End If
End Sub

好像好似open 目录 as #1有点忘了

好像有个api函数可以调用的,他可以对ini文件的节,项和项值经行操作,到网上搜搜看

有些程序不是用VB写出来的。。。有些直接用记事本写出来的。