VB如何删除INI文件小节

VB code

'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

我用了上面那段代码， 却怎么也删除不了INI文件里头的小节， 谁教教我哪里出问题了。。。？




[解决办法]
看不懂，用GetLastError()获取下错误号，也许有帮助。
[解决办法]
你的代码没问题，Result返回值为True吗？是不是FileName没有用绝对路径名？用绝对路径名试试，我试过了，代码没问题，能删除小节。和文件权限有没有关系。