最近作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