Visual Basic Programming Code Examples

Visual Basic > Windows and Controls Code Examples

Return the path of the temporary directory



Return the path of the temporary directory

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
'Notes       :  Can use Environ("Temp") as an alternative to the API call on NT machines


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