CodeItBetter Programming Another VB Programming Blog

'System & API - How to get Temp Path
Option Explicit
 
Private Declare Function PathAddBackslash Lib "shlwapi.dll" Alias "PathAddBackslashA" _
    (ByVal pszPath As String) As Long
Private Declare Function GetTempPathA Lib "kernel32" (ByVal nBufferLength As Long, _
    ByVal lpBuffer As String) As Long
 
Public Function GetTempPath() As String
    Dim s As String
    Dim I As Integer
    I = GetTempPathA(0, "")
    s = Space(I)
    Call GetTempPathA(I, s)
    GetTempPath = AddBackslashUsingAPI(Left$(s, I - 1))
End Function
 
Public Function AddBackslashUsingAPI(ByVal sFolder As String) As String
    sFolder = sFolder & String(1, 0)
    PathAddBackslash sFolder
    AddBackslashUsingAPI = sFolder
End Function