如何获得Windows的临时文件的存放路径

许多应用程序都要创建临时文件在该应用程序的执行目录里（可以通过App.Path方法获得）。但是，你可以使用Windows指定的临时文件夹来存放这些临时文件。如果你的用户是在一个公用的环境里使用你的程序，这个优势将会十分明显，因为用户可能没有权限在“Program Files”目录下创建或者修改文件。

要获得Windows的临时文件的存放路径，可以使用GetTempPath API函数。以下是该函数的声明：

Private Declare Function GetTempPath Lib "kernel32" Alias_

 "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

“BufferLength”是这个函数的第一个参数，它将指定接受传进来字符串的缓冲区大小。“Buffer”参数用于装载临时文件路径的一个预初始化字串。

调用前，初始化一个（通常长为255）的以null为结尾的字符串，长度为字符长度加1。然后调用这个函数，这个函数的返回值是一个Long型的变量，该返回值将是TEMP路经的真实长度。

 Dim lngFolderSize As Long
    Dim strFolder As String
    Dim lngLength As Long
    
    lngFolderSize = 255
    strFolder = String(lngFolderSize + 1, 0)
    lngLength = GetTempPath(lngFolderSize, strFolder)
    If lngLength > 1 Then
        strFolder = Left(strFolder, lngLength)
    Else
        strFolder = vbNullString
    End If
    
    MsgBox strFolder

当你的用户需要确定临时文件目录，并且应用程序将在那里创建临时的工作文件时，这个API函数将十分有用。