Option Explicit

'API宣言です
#If UNICODE Then
    Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathW" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
#Else
    Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
#End If

'一時ファイル(Temp)パスを返します
Public Function GetTempFullPath() As String
    Dim strPath As String * 255
    Dim lngSize As Long
    
    'Tempパスを取得します
    lngSize = GetTempPath(255, strPath)
    strPath = Left(strPath, lngSize - 1)
    
    '空白を削りTempパスを返します
    GetTempFullPath = Trim(strPath)
End Function