devxlogo

TemporaryDirectory – Get Windows temporary directory

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

devx-admin

Share the Post: