HelpF.pro

Как получить путь к Рабочему столу Пользователя?

Код 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 )
Опубликовано на сайте: https://HelpF.pro
Прямая ссылка: https://HelpF.pro/faq/view/1066.html