|
Как получить путь до Рабочего стола Windows? |
☑ |
0
fly7
24.11.10
✎
12:49
|
хочу сохранить туда отчет из 1с
|
|
1
Jstunner
24.11.10
✎
12:50
|
гугл молчит? %USERPROFILE%\Рабочий стол
|
|
2
smaharbA
24.11.10
✎
12:51
|
шелскрипт=СоздатьОбъект("wscript.shell"); Сообщить(шелскрипт.SpecialFolders("Desktop"));
|
|
3
smaharbA
24.11.10
✎
12:51
|
(1) чо за бред ?
|
|
4
fly7
24.11.10
✎
12:51
|
или так? %USERPROFILE%\Desktop в русской винде такой же путь? у меня в русской Win7 так
|
|
5
fly7
24.11.10
✎
12:52
|
(2) в для 1с82?
|
|
6
fly7
24.11.10
✎
12:58
|
(2) Шел = Новый COMОбъект("wscript.shell"); Путь = Шел.SpecialFolders("Desktop"); так не хочет
|
|
7
smaharbA
24.11.10
✎
12:59
|
(2) Новый COMОбъект(...
|
|
8
smaharbA
24.11.10
✎
12:59
|
(6) что говорит ?
|
|
9
fly7
24.11.10
✎
13:05
|
Нашел :) Шел = Новый COMОбъект("wscript.shell"); Путь = Шел.SpecialFolders.Item("Desktop");
|
|
10
EvgeniuXP
24.11.10
✎
13:06
|
(3) это не бред, это из справки Windows.
|
|
11
fly7
24.11.10
✎
13:06
|
надо было для этого: Шел = Новый COMОбъект("wscript.shell"); Путь = Шел.SpecialFolders.Item("Desktop"); Файл = Новый Файл(Путь + "\TeamViewerQS.exe"); Если Не Файл.Существует() Тогда Макет = Обработки.УдаленныйДоступ.ПолучитьМакет("TeamViewerQS"); Макет.Записать(Путь + "TeamViewerQS.exe"); КонецЕсли; Возврат Путь + "\TeamViewerQS.exe";
|
|
12
smaharbA
24.11.10
✎
13:06
|
так все папки
//******************************************* Процедура Сформировать() Шел=СоздатьОбъект("shell.application"); ШелСкрипт=СоздатьОбъект("wscript.shell"); СпециальныеПапки=ШелСкрипт.SpecialFolders; Для Сч=0 По СпециальныеПапки.Count()-1 Цикл Папка=Шел.Namespace(СпециальныеПапки.Item(Сч)); Сообщить(Папка.Self.Name+": "+Папка.Self.Path); КонецЦикла; КонецПроцедуры
|
|
13
smaharbA
24.11.10
✎
13:08
|
(10) это бред и к справке он не имеет никакого отношения
|
|
14
fly7
24.11.10
✎
13:10
|
(12) в 1с8 папки в массиве видимо достучатся можно через SpecialFolders.Item("Desktop")
|
|
15
smaharbA
24.11.10
✎
13:17
|
да, в большинстве коллекций лучше обращаться по item() и многие принимают как номер так и ключ-строку
|
|
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший