Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Ветеран


Сообщения: 27449
Благодарности: 8088

Профиль | Отправить PM | Цитировать


Цитата Roman_Ko:
А так - да, можно, например так »
Roman_Ko, так, да не так. Не On Error Resume Next, не ExpandEnvironmentStrings("%USERPROFILE%") и не "\desktop\…", а либо тот же WshShell, либо Shell:
Код: Выделить весь код
WScript.Echo WScript.CreateObject("WScript.Shell").SpecialFolders("Desktop")
WScript.Echo WScript.CreateObject("Shell.Application").NameSpace("shell:Desktop").self.Path

Отправлено: 14:34, 22-03-2017 | #4