要获得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函数将十分有用。