[VBA程序]：api获得系统临时文件夹路径名中带有汉字，获得文件夹名中末尾会多几个空格

god

我用下面这段代码来获得系统临时文件夹，但是如果文件夹路径名中带有汉字，获得文件夹名中末尾会多几个空格，用trim函数也删不掉，怎么回事呢？怎么处理比较好？

2. 
   
3. 
   
4. Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA"  _
   
5. (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
   
6. 
   
7. 
   
8. Public Sub aa()
   
9. 
   
10. Dim Buffer As String * 255
    
11. 
    
12.     Buffer = Space(255)
    
13.     rtn = GetTempPath(Len(Buffer), Buffer)
    
14.     TempPath = Left(Buffer, rtn)
    
15.     TempPath = Trim(TempPath)
    
16. 
    
17. End Sub
    
18. 
    

<br /> <br /> Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA"  _<br /> (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long<br /> <br /> <br /> Public Sub aa()<br /> <br /> Dim Buffer As String * 255<br /> <br />     Buffer = Space(255)<br />     rtn = GetTempPath(Len(Buffer), Buffer)<br />     TempPath = Left(Buffer, rtn)<br />     TempPath = Trim(TempPath)<br /> <br /> End Sub<br /> <br />

雪山飞狐(lzh)

Private Sub CommandButton1_Click()
Dim fso As New FileSystemObject
Dim fld As Folder
Set fld = fso.GetSpecialFolder(TemporaryFolder)
MsgBox fld.Path
End Sub

god

怎么才能使用这个对象？ FileSystemObject，我的提示未定义的类型

另外我发现用api  GetTempPath得到的文件夹名考入剪贴板再读出，末尾的空格会消失。可变相解决这个问题。只是不太好。

雪山飞狐(lzh)

引用下列类型库