CodeItBetter Programming Another VB Programming Blog

'System & API - How to Get windows temp path
Option Explicit
 
Private Declare Function GetTempPath Lib "kernel32.dll" Alias "GetTempPathA" _
   (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
 
Private Sub Command1_Click()
'Get Windows's temporary file directory.
   Dim TempPath As String  'receives name of temporary file path
   Dim StrLen As Long      'receives length of string returned for the path
   
'Get Windows's temporary file path
   TempPath = Space(255)            'initialize the buffer to receive the path
   StrLen = GetTempPath(255, TempPath) 'read the path name
   TempPath = Left(TempPath, StrLen)  'extract data from the variable
   
   MsgBox TempPath
End Sub