Имя: Пароль:
1C
1С v8
Путь к терминалу
,
0 Oz11
 
03.10.11
10:39
Подскажите, как программно определить путь к терминалу для текущего пользователя.
1 poligraf
 
03.10.11
10:43
(0) налево за углом, терминал Qiwi?
или поясни
2 Oz11
 
03.10.11
10:45
увидел в семерке вот такую запись "Пользователь.ПутьКТерминалу". вот пытаюсь найти как определить путь к терминалу в котором работает текущий пользователь. Цель - записать туда текстовый файл.
3 Salvador Limones
 
03.10.11
10:46
Телепаты передохли. И что за "семёрка"?
4 Oz11
 
03.10.11
10:48
ко мне попала только обработка, базы нет. поэтому и сам не знаю что такое Пользователь.ПутьКТерминалу. как писал выше вопрос в том чтобы определить откуда была запущена 1С, чтобы записать туда файл.
5 rutony
 
03.10.11
10:51
КаталогПрограммы()
6 poligraf
 
03.10.11
10:51
(4) Куда?! В терминал? Так 7-ка и так на сервере запущена - хватить прав пиши в любой каталог.
На компьютер пользователя? А там папочки нужные расшарены?
7 Oz11
 
03.10.11
10:57
на счет прав не уверен. (5) - это не подходит, так как нужна папка пользователя на сервере. просто нужно как-то добраться до папки пользователя на сервере. C:\Users\<Пользователь>\ а дальше куда угодно. вот этот путь нужно программно определить.
8 poligraf
 
03.10.11
11:11
(7) при чем тут путь к терминалу-то?
9 Oz11
 
03.10.11
11:32
(8) в семерошном коде фигурировал такой термин. мне нужно программно определить именно папку пользователя на сервере, чтобы запихать туда файл. если слово "терминал" запутало - это моя ошибка. нужна папка пользователя.
10 Oz11
 
04.10.11
10:56
Функция ПолучитьСистемнуюПапку(Имя) Экспорт
  Попытка
      СкриптКон = Новый COMОбъект("MSScriptControl.ScriptControl");
      СкриптКон.Language = "vbscript";
      СкриптКон.AddCode("
      |Function SpecialFolders(Name)
      |Set Shell = CreateObject(""Wscript.Shell"")
      |SpecialFolders = Shell.SpecialFolders(Name)
      |End Function");
      ИмяПапки = СкриптКон.Run("SpecialFolders", Имя);
  Исключение
      ИмяПапки = Неопределено;
  КонецПопытки;
  Возврат ИмяПапки;    
КонецФункции    
Кому интересно - вот код.
11 extrim-style
 
04.10.11
11:14
системная переменная %userprofile%