VB如何删除INI文件小节

Question

'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 Long
Public 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 Function DeleteSection(ByVal FileName As String, ByVal Section As String)
'删除小节
'用法: DeleteSection "小节名"
Dim Result As Long
Result = 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 Long
Result = WritePrivateProfileString(Section, KeyName, vbNullString, FileName)
End Function
我用了上面那段代码， 却怎么也删除不了INI文件里头的小节， 谁教教我哪里出问题了？

Answer 1

看不懂，用GetLastError()获取下错误号，也许有帮助。

Answer 2

你的代码没问题，Result返回值为True吗？是不是FileName没有用绝对路径名？用绝对路径名试试，我试过了，代码没问题，能删除小节。和文件权限有没有关系。