Ruta del directorio temporal de windows

Muchas veces los programas que desarrollamos necesitan hacer movimientos sobre archivos y para ello que mejor que emplear el directorio temporal de windows ? Usar el C:\ a veces es complejo porque dependiendo de los permisos y demás factores hay ocasiones en las que no es posible escribir allí. Este tip permite determinar donde esta el famoso directorio temporal de windows (que casi siempre es C:\WINDOWS\TEMP) para poder hacer uso de él.

En un módulo declaramos :

Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" _
                 (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Public Const MAX_PATH = 260

Y creamos la siguiente función que nos devolverá el directorio deseado :

Public Function GetTmpPath() as string
 Dim strFolder As String
 Dim lngResult As Long
 strFolder = String(MAX_PATH, 0)
 lngResult = GetTempPath(MAX_PATH, strFolder)
 If lngResult <> 0 Then
     GetTmpPath = Left(strFolder, InStr(strFolder,Chr(0)) - 1)
 Else
     GetTmpPath = ""
 End If
End Function