|
Как программно получить папку рабочего стола в 1с ? | ☑ | ||
---|---|---|---|---|
0
aleks100
07.10.14
✎
09:43
|
Как программно получить папку рабочего стола в 1с ?
|
|||
1
КтоКакБог
07.10.14
✎
09:44
|
рабочего стола сервера?
|
|||
2
Asmody
07.10.14
✎
09:44
|
В 1С нет папки рабочего стола
|
|||
3
YFedor
07.10.14
✎
09:45
|
(0) WSH спасет отца руской демократии
|
|||
4
Cube
07.10.14
✎
09:45
|
(2) Ты сегодня хладнокровен и безжалостен =))
|
|||
5
mergan
07.10.14
✎
09:46
|
(3)как?
|
|||
6
YFedor
07.10.14
✎
09:48
|
(5) создаешь объект, применяешь соответствующий метод
|
|||
7
aleks100
07.10.14
✎
09:50
|
через vbs я знаю
Set WshShell = CreateObject("WScript.Shell") MsgBox WshShell.SpecialFolders("Desktop") а как его использовать в 1с? |
|||
8
xXeNoNx
07.10.14
✎
09:50
|
наверное вот так:
выдает ошибку |
|||
9
Timon1405
07.10.14
✎
09:50
|
ПутьРабочийСтол = "C:\Users\%username%\Desktop\";
WScriptNetwork= Новый COMОбъект("WScript.Network"); ДомИмяПользователя = СокрЛП(WScriptNetwork.UserName); ПутьРабочийСтол = СтрЗаменить(ПутьРабочийСтол ,"%username%",ДомИмяПользователя); |
|||
10
YFedor
07.10.14
✎
09:51
|
(9) Вообще бред.
|
|||
11
MiniMuk
07.10.14
✎
09:52
|
(9) а если не C:\Users
а C:\докУментЭндСетингс? |
|||
12
mergan
07.10.14
✎
09:53
|
и какой надо создать объект который сможет вернуть то, чего нет?
|
|||
13
Бледно Золотистый
07.10.14
✎
09:55
|
SpecialFolders.Item("Desktop")
|
|||
14
an-korot
07.10.14
✎
09:56
|
ну вы как маленький обращайтесь с общему столу
"C:\Documents and Settings\All Users\Рабочий стол" |
|||
15
MiniMuk
07.10.14
✎
09:57
|
||||
16
MiniMuk
07.10.14
✎
09:58
|
(15) Какбы дописываю
CLIENTNAME локальная динамическая Переменная определена только в среде удаленного подключения к рабочему столу. Хранит имя компьютера (%COMPUTERNAME%) клиента удаленного доступа. |
|||
17
xXeNoNx
07.10.14
✎
09:59
|
(16) Ни о чем не говорит)
|
|||
18
an-korot
07.10.14
✎
10:00
|
через vbs я знаю
Set WshShell = CreateObject("WScript.Shell") MsgBox WshShell.SpecialFolders("Desktop") а как его использовать в 1с? пожалуй вот так: Винда = Новый COMОбъект("WScript.Shell"); РабочийСтол = Винда.SpecialFolders("Desktop"); |
|||
19
ChiginAV
07.10.14
✎
10:00
|
WshShell = Новый COMОбъект("WScript.Shell");
Folders = WshShell.SpecialFolders(); Сообщить(Folders.Item("Desktop")); |
|||
20
xXeNoNx
07.10.14
✎
10:01
|
(18) (19) Зря сказали, ведь даже "спасибо" не скажет
|
|||
21
YFedor
07.10.14
✎
10:02
|
(20) Не переживай. у него этот код ошибку выдает
|
|||
22
aleks100
07.10.14
✎
10:02
|
(13) спасибо
работает Шелл = Новый COMОбъект("WScript.Shell"); МоиДокументы = Шелл.SpecialFolders.item("MyDocuments"); РабочийСтол = Шелл.SpecialFolders.item("Desktop"); |
|||
23
ChiginAV
07.10.14
✎
10:02
|
(20) Настоящие герои не ждут благодарности
|
|||
24
aleks100
07.10.14
✎
10:03
|
(18)(19) тоже спасибо
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |