Цитата gen0m.rsw:
|
что-бы на рабочий стол ярлыки можно было выводить!! »
|
Замените:
Код:
With .CreateShortcut(WScript.CreateObject("Shell.Application").NameSpace("shell:AppData").Self.Path & _
"\Microsoft\Internet Explorer\Quick Launch\" & objDictionary.Item(elem))
на:
Код:
With .CreateShortcut(WScript.CreateObject("Shell.Application").NameSpace("shell:Desktop").Self.Path & "\" & objDictionary.Item(elem))
