Путь к папке TEMP текущего пользователя (FSO)

Public Function GetUserTempFolder()
' Возвращает путь к папке TEMP текущего пользователя
' ?GetUserTempFolder
' -------------------------------------------------------------------------------------------------/
Dim objFSO As Object
On Error GoTo GetUserTempFolder_Err
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    GetUserTempFolder = objFSO.GetSpecialFolder(2)
    Set objFSO = Nothing
GetUserTempFolder_End:
    Exit Function

GetUserTempFolder_Err:
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in Function :" & _
        "GetUserTempFolder", vbCritical, "Error!"
    Err.Clear
    Resume GetUserTempFolder_End
End Function