
TemporaryDirectory – Get Windows temporary directory
Private Declare Function GetTempPath Lib “kernel32” Alias “GetTempPathA” (ByVal _ nBufferLength As Long, ByVal lpBuffer As String) As LongFunction TemporaryDirectory() As String Dim buffer As String * 512, length As Long length = GetTempPath(Len(buffer), buffer) TemporaryDirectory = Left$(buffer, length)End Function