vb.net中使用GetPrivateProfileString访问INI文件，解决中文路径问题

最新推荐文章于 2023-09-10 17:17:54 发布

iteye_887

最新推荐文章于 2023-09-10 17:17:54 发布

阅读量367

点赞数

本文介绍了一个VB.NET程序在WinXP环境下使用GetPrivateProfileString函数读取包含中文路径的INI文件时遇到的问题及解决方案。首次读取正常，再次读取则失败。通过调整代码可以避免该问题。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

在vb.net2005+winxp中，我使用GetPrivateProfileString读取一个ini文件，如果文件路径中含有中文，就会遇到一个奇怪的问题：第一次读取正常，第二次读取就取不到值。代码如下：

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer Private m_filename As String = "c:/椅子/slcuserinfo.ini" Public Function GetiniValue(ByVal lpKeyName As String, ByVal strName As String) As String Dim strTmp As String 'Dim fileTmp As String 'fileTmp = m_filename strTmp = New String(" ", 100) 'Call GetPrivateProfileString(lpKeyName, strName, "", strTmp, Len(strTmp), fileTmp) Call GetPrivateProfileString(lpKeyName, strName, "", strTmp, Len(strTmp), m_filename) GetiniValue = Left$(strTmp, InStr(strTmp, vbNullChar) - 1) End Function

反复试验过以后，发现取消注释掉的代码就可以正常运行。百思不得其解，看api的声明没有问题啊，为什么lpFileName会出现异常呢？

不管怎样，这个问题耽误了我2个小时，先贴上故障和解决办法，以后再研究。