VB and VBA Users Source Code: Return the path of the temporary directory

VB/VBA Source Code
Return the path of the temporary directory

By:	Andrew Baker
Email (spam proof):	Email the originator of this post
Date:	Saturday, January 13, 2001
Hits:	587
Category:	Windows API

Article:
The following routine returns the path of the temporary directory/folder: Option Explicit Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long 'Purpose : Returns the path of the temporary directory 'Inputs : N/A 'Outputs : The temporary path name 'Author : Andrew Baker 'Date : 13/01/2001 21:00 'Notes : Can use Environ("Temp") as an alternative to the API call on NT machines 'Revisions : Function DirTemp() As String Dim lLenTemp As Long Static ssTempDir As String If Len(ssTempDir) = 0 Then lLenTemp = 150 ssTempDir = String$(lLenTemp, Chr$(0)) 'Get the username lLenTemp = GetTempPath(lLenTemp, ssTempDir) 'strip the rest of the buffer ssTempDir = Left$(ssTempDir, lLenTemp) If Right$(ssTempDir, 1) <> "\" Then ssTempDir = ssTempDir & "\" End If End If DirTemp= ssTempDir End Function
Terms and Conditions
Support this site Download a trial version of the Excel Workbook Rebuilder