配置文件ini中的路径不支持中文

[DingDingsh]

请教各位，我编了一个程序，但软件启动时路径中不支持中文名，不知哪里有问题。

Public Str, txt1, exe1
Public Function ReadFile(ByVal FileName As String) As String
 Dim objStream As Object
 Set objStream = CreateObject("ADODB.Stream")
 With objStream
 .Type = 2
 .mode = 3
 .Open
 .Charset = "UTF-8"
 .LoadFromFile FileName
 ReadFile = .ReadText
 .Close
 End With
End Function

Private Sub Form_Load()
Text1.Text = ReadFile(App.Path & "\AUTOMARK.ini")
txt = Split(Text1, "<txt>")
If Right(txt(1), 1) = "\" Then txt1 = Left(txt(1), Len(txt(1)) - 1) & "\TEMP.BTF" Else txt1 = txt(1) & "\TEMP.BTF"
exe = Split(Text1, "<exe>")
If Right(exe(1), 1) = "\" Then Text2.Text = Left(exe(1), Len(exe(1)) - 1) Else Text2.Text = exe(1)

有的朋友说是Charset = "UTF-8"这里有问题。请教这该怎么改呢？谢谢

[专注VB编程开发20年]

试过了没问题，中文路径不影响，可能是你文件名弄错了吧

[专注VB编程开发20年]

文件一般用ANSI编码，如果不是UTF-8，你可以改 .Charset = "UTF-8" 改为： .Charset = "gb2312"

[DingDingsh]

引用 2 楼 xiaoyao961 的回复:

文件一般用ANSI编码，如果不是UTF-8，你可以改 .Charset = "UTF-8" 改为： .Charset = "gb2312"

非常有用！