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");
//%userprofile%\desktop для английской версии и "%userprofile%\рабочий стол" в русской WSH=Новый COMobject("wscript.shell"); ИмяПути = "" + WSH.ExpandEnvironmentStrings("%HomePath%")) + "\Desktop"; // или WSS=Новый COMОбъект("WScript.Shell"); Сообщить(WSS.SpecialFolders().Item("Desktop"));