vb.net中使用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