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

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

Аватара для zero55

Ветеран


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

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


еще вариант

Set WshShell = Wscript.CreateObject("Wscript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "\\SERVER_NAME\test\test.lnk" , strDesktop+"\test.lnk", TRUE

Отправлено: 16:39, 14-04-2011 | #5