Как в макросах ОО использовать переменные среды windows? Н...

Автор ForumOOo (бот), 16 ноября 2015, 19:56

0 Пользователи и 1 гость просматривают эту тему.

ForumOOo (бот)

Компонент: Calc
Версия продукта:
Сборка:
ОС:

Как в макросах ОО использовать переменные среды windows? Нужно сохранять файл на рабочем столе. Компьютеров много, пользователи разнообразны. Хотел вот сюда
Doc.storeToURL("file:///....
прикрутить %userprofile%\desktop - не получилось.
Может кто-то сталкивался с подобной проблемой?

--
Подпись: Calendula

JohnSUN

Может, как то так?
Sub DesktopName
Dim a
GlobalScope.BasicLibraries.LoadLibrary("Tools")
a = GetPathSettings("Work")
MsgBox "Папка Мои документы у этого пользователя называется " + ConvertFromURL(a)
a = Split(GetPathSettings("Work"), "/")
a(UBound(a)) = "Desktop"
a = Join(a,"/")+"/"
If FileExists(a) Then
MsgBox "Значит Рабочий стол у этого пользователя должен называться " + ConvertFromURL(a)
Else
MsgBox "Но папка с именем " + ConvertFromURL(a) + " почему-то не найдена"
EndIf
End Sub
Если никто в настройках Сервис - Параметры - OpenOffice - Пути - Мои документы не поковырялся - должно работать...
Владислав Орлов aka JohnSUN
Благодарить-не зазорно.
Подарить благо создателям офиса, нашему ресурсу, мне

Calendula