Как Взять Путь Ко Временным Папкам Пользователя В Ос

[GveinBlade]

Всем привет.
Вопрос состоит в том как скриптом поднять виндовые временные папки определенные для данныго пользователя. Суть в том, что нужно сохранить файлик из документа во временную папку естественно прав у обычного юзверя для создания папки на C: нет. Следует использовать папки для хранения временных файлов в профиле пользователя определенных ОС, с данной задачей ни разу не сталкивался поэтому не знаю как взять из настроек ОС путь к папке, т.к. он будет менятся в зависимости от пользователя. Может кто сталкивался с данной задачей? Заранее благодарен за помощь.

Уже имеющиеся ответы на вопрос:
в CODEBASE:
• получение темпового пути Лотус кроссплатформенно, GetSystemTempDirectory Linux/Win/Mac
• Переменные среды
в этом форуме:
• Получение Переменной Окружения Windows Из @-формул, на примере "Мои документы"
•

Ссылка скрыта от гостей

 

[Kizarek86]

Environ("TEMP")

 

[GveinBlade]

Environ("TEMP")

Тобишь
скрипт
Path=Environ("TEMP") 'берет темповую папку по умолчанию
скрипт
правильно?

 

[savl]

да, можешь заморочиться и взять Notes-temp:

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

Dim tempStr as string*256

Select Case Lcase(Left(ses.Platform,3))
Case "win":
s% = w32_OSGetSystemTempDirectory(tempStr)
Case "mac":
s% = mac_OSGetSystemTempDirectory(tempStr)
Case "lin":
s% = linux_OSGetSystemTempDirectory(tempStr)
Case Else:
Goto endh
End Select

rempStr = Left(tempStr,s%)

без разделителя в конце, так что не забудь "/"

 

[savl]

Забыл еще добавить: Dim tempStr as string*256
Иначче вернет пустую строку

 

[yerke]

отрывок из рабочего класса

Public Function getTempDir() As String
If tempDir = "" Then
If Instr(Me.s.Platform, "Windows") > 0 Then
TempDir = Environ("Temp")
If Right(TempDir, 1) <> "\" Then
TempDir = TempDir & "\"
End If
Else
TempDir = Environ("HOME")
If Right(TempDir, 1) <> "/" Then
TempDir = TempDir & "/"
End If			
End If
End If
getTempDir = tempDir
End Function