VB如何删除INI文件小节
'API 声明Public 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 LongPublic Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As LongPublic Function DeleteSection(ByVal FileName As String, ByVal Section As String)'删除小节'用法: DeleteSection "小节名"Dim Result As LongResult = WritePrivateProfileString(Section, vbNullString, vbNullString, FileName)'WritePrivateProfileString "d", vbNullString, vbNullString, App.Path & "\test.ini"End FunctionPublic Function DeleteKeyName(ByVal FileName As String, ByVal Section As String, ByVal KeyName As String)'删除项'用法: DeleteSection "小节名","项名"Dim Result As LongResult = WritePrivateProfileString(Section, KeyName, vbNullString, FileName)End Function
