vb中怎么创建ini文件

VB操作INI文件示例：

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Private Sub Command1_Click()

Dim A As Long

Dim B As String

B = App.Path

'写信息

'修改SET.INI文件中MAIN字段中HP的值为当前程序路径

'如果该文件不存在会自动建立,当函数返回值为0时说明修改不成功

A = WritePrivateProfileString("MAIN", "HP", B, App.Path &"\SET.INI")

If A = 0 Then MsgBox ("写文件时出错")

End Sub

Private Sub Command2_Click()

Dim A As Long

Dim T As String

'读取信息

T = Space$(1000) '事先定义读取值的字串宽度

'读取SET.INI文件中TIP字段中MAIN的值并打印出来

'当函数返回值为0时说明读取数据出错

A = GetPrivateProfileString("MAIN", "HP", "", T, 1000, App.Path &"\SET.INI")

If A = 0 Then MsgBox "找不到所需字段": Exit Sub

Print Left$(T, Len(Trim$(T)) - 1)

End Sub

使用文本文档另存为ini文件，步骤如下：

所需材料：文本文档。

一、点击鼠标右键，弹出菜单内点击“新建”。

二、子菜单内点击“文本文档”。

三、编辑好内容后，点击“文件”。

四、弹出的菜单内点击“另存为”。

五、保存类型更改为“所有文件”，文件名尾缀改为“ini”，点击“保存”。

六、这时ini文件创建完成。

---