系统temp目录的问题

Question

程序如下，使用API取得temp目录：Declare Public Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (Byval nBufferLength As Long, Byval lpBuffer As String) As Long'取得Temp的Directory
Dim sTempFolder As String'temp目录路径
Dim len5 As String
sTempFolder = String(255, 0)
len5 = GetTempPath(256, sTempFolder)
sTempFolder = Left(sTempFolder, len5)这样取得的sTempFolder在目录路径中不含中文的情况下是没问题的，但是一旦含有中文，就会出错，left会把中文字符作为双字节处理的，有什么办法来解决这个问题吗？

Answer 1

sTempFolder=LeftB(sTempFolder,len5)

Answer 2

leftb不行的，会把英文当两字节的……还是找第一个vbNullChar吧