FAQ

Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" _
                        (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

Function tempPath() As String

Dim strTemp As String
strTemp = String(255, Chr$­­­­(0))
GetTempPath 255, strTemp
tempPath = Left$­­­­(strTemp, InStr(strTemp, Chr$­­­­(0)) - 1)

End Function