Функция на LotusScript
Когда это полезно. Прежде всего если ваши пользователи ограничены в правах, и могут создавать файлы только в своих директориях (компьютер введен в домен).
Для чего это надо. Существует несколько потребностей, например при создании печатной формы из шаблона или вам надо распечатать автоматически несколько JPEG файлов и т.п.
Option Declare 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. 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