ПРОДАЖА И ВНЕДРЕНИЕ 1С

по всей России

+7 (495) 223-32-11

Заказать обратный звонок

8 (800) 775-90-01

Бесплатно по России

Получить

Скорую 1С помощь

Получить

Проконсультироваться
со специалистом 1С

Консультироваться

Код 1C v 8.х
 Ctrl = Новый COMОбъект("MSScriptControl.ScriptControl");
      
Ctrl.Language = "vbscript";
Ctrl.AddCode("
|Function SpecialFolder()
| Set Shell = CreateObject(""WScript.Shell"")
| SpecialFolder = Shell.RegRead(""HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Desktop"")
|End Function");
ПолноеИмя = Ctrl.Run("SpecialFolder");


Код 1C v 8.х
 //%userprofile%\desktop для английской версии и "%userprofile%\рабочий стол" в русской
      
WSH=Новый COMobject("wscript.shell");
ИмяПути = "" + WSH.ExpandEnvironmentStrings("%HomePath%")) + "\Desktop";
// или
WSS=Новый COMОбъект("WScript.Shell");
Сообщить(WSS.SpecialFolders().Item("Desktop"));


Пример определения системных каталогов пользователя ( Shell Application Namespace )

Информация взята с сайта http://helpf.pro


Заказать обратный звонок

Позвонить
Отправлено! В самое ближайшее время наш менеджер свяжется с Вами.