vb 删除ini文件

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

Public Sub Delete_ini_item(ByVal Appname As String, ByVal Itemname As String)

WritePrivateProfileString Appname, Itemname, 0&, App.Path &inifilename

End Sub

执行删除text1

delete_ini_item "I","Text1"

删除节点及节点中所有值

Public Sub EraseSection(ByVal Section As String, ByVal FileName As String)

WritePrivateProfileString Section, Null, Null, FileName

End Sub

删除指定值Ident

WritePrivateProfileString(Section, Ident, null, FileName)

---