VB中如何获取系统临时目录

最近作CAD二次开发，希望能整合CAD文档进PLM系统，过程处理文件上下载时涉及如何获取系统临时目录，因VB不是自己强项，但是通过搜索引擎解决问题的能力还是不错的，找到解决办法后编写如下代码作个记录

Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

Private Function GetTmpPath() As String
Dim tmpBuffer As String
tmpBuffer = String(255, Chr(0))
GetTempPath 256, tmpBuffer
GetTmpPath = Trim(Left(tmpBuffer, InStr(1, tmpBuffer, Chr(0)) - 1))
End Function