Return name temporary folder

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

Private Const MAX_PATH As Integer = 255

Function DirTemporary() As String
'Returns Temp Folder Name
Dim strTemp As String
Dim lngRtn As Long
    strTemp = String$(MAX_PATH, 0)
    lngRtn = apiGetTempDir(MAX_PATH, strTemp)
    If lngRtn <> 0 Then
        DirTemporary = Left$(strTemp, lngRtn)
    End If
End Function