Задача - найти темп фолдер на мак оси.
Есть код найденный на просторах интерентов:
На винде выдаёт что-то вроде
C:\Users\<USER>\AppData\Local\Temp\notes0B0261
На мак - тадам!
Error in loading dll
Куда смотреть, у меня с этим белым ящиком мало опыта.
Спасибо!
Есть код найденный на просторах интерентов:
Код:
' Add below code in declaration section
Declare Function w32_OSGetSystemTempDirectory Lib "nnotes" Alias "OSGetSystemTempDirectory" ( ByVal S As String) As Integer
Declare Function mac_OSGetSystemTempDirectory Lib "NotesLib" Alias "OSGetSystemTempDirectory" ( ByVal S As String) As Integer
Declare Function linux_OSGetSystemTempDirectory Lib "libnotes.so" Alias "OSGetSystemTempDirectory" ( ByVal S As String) As Integer
Const ERR_UNSUPPORTED_PLATFORM = 20300 ' or other value you choose.
' Add below function
' this function GetNotesTempDirectory() will return the temporary directory used by lotus notes.
Function GetNotesTempDirectory() As String
' Returns the path of the temporary directory used by Notes.
Dim session As New NotesSession
Dim d As String * 256
Dim s%
Select Case session.Platform
Case "Linux"
s% = linux_OSGetSystemTempDirectory(d)
Case "Macintosh"
s% = mac_OSGetSystemTempDirectory(d)
Case "Windows/32"
s% = w32_OSGetSystemTempDirectory(d)
Case Else
Error ERR_UNSUPPORTED_PLATFORM, "In GetNotesTempDirectory, platform not supported: " & session.Platform
End Select
GetNotesTempDirectory = Left$(d, s%)
End FunctionНа винде выдаёт что-то вроде
C:\Users\<USER>\AppData\Local\Temp\notes0B0261
На мак - тадам!
Error in loading dll
Куда смотреть, у меня с этим белым ящиком мало опыта.
Спасибо!
