Office 365 Type Mismatch (1 Viewer)

[ThetaDev]

Hello everyone. I having been updating some VBA code and now get a compile error 13 Type mismatch. This following code worked until I recompiled the module in Access 2016.

It appears that the Declared Function is not being seen by the calling Function( lenret =WinGetTempDir(BufferLen, wrkPath)). I hope this is clear. Please help. Thanks in advance.

Option Compare Database
'
' Get path of local Windows temporary folder - declaration part
'

#If Win64 Then
    Public Declare PtrSafe Function WinGetTempDir Lib "kernel32" Alias "GetTempPathA" (ByVal Buflen As LongPtr, ByVal TempPath As String) As LongLong
#Else
    Private Declare Function WinGetTempDir Lib "kernel32" Alias "GetTempPathA" (ByVal BufLen As Long, ByVal TempPath As String) As Long
#End If
---------------------------------
Public Function GetWinTempDir() As String
'
' Get path of local Windows temporary folder - return path as a string
'
    Dim wrkPath As String
    Dim lenret As Long
    Dim BufferLen As Long
    
    wrkPath = String$(255, 0)   ' Fill with nulls
    BufferLen = 255
    
    lenret = [COLOR="Red"]WinGetTempDir(BufferLen, wrkPath)[/COLOR]
    If lenret = 0 Then
        GetWinTempDir = ""
    Else
        GetWinTempDir = Left$(wrkPath, lenret)
    End If
    
End Function

 

[arnelgp]

you can simply use

environ("temp")

to get the temp/tmp folder

 

[arnelgp]

actually this is wrong:

#If Win64 Then
    Public Declare PtrSafe Function WinGetTempDir Lib "kernel32" Alias "GetTempPathA" (ByVal Buflen As LongPtr, ByVal TempPath As String) As LongLong

should be:

#If VBA7 Then
    Public Declare PtrSafe Function WinGetTempDir Lib "kernel32" Alias "GetTempPathA" (ByVal Buflen As [COLOR="Blue"]Long[/COLOR], ByVal TempPath As String) As [COLOR="blue"]Long[/COLOR]

 

[ThetaDev]

Thank you for the quick response. Will try now.

 

[isladogs]

I'm not convinced that your API declaration is correct but can't check that till I'm on another workstation later.

However there is a much simpler method that needs no API so works in both bitnesses. Just use

Environ("temp")

EDIT I hadn't seen arnel's earlier replies when I responded

 

[ThetaDev]

Yes That worked! I had seen there were other ways to get the Temp folder location but was trying to correct code but was confused as to why it would not work with Access 2016. Anyhow I can move forward.

Thanks so much!