Версия для печати темы

Нажмите сюда для просмотра этой темы в оригинальном формате

WinCity.Ru _ Microsoft Windows NT/2000 _ Создать ярлык из командной строки

Автор: OVR Четверг, 11 Ноября 2004, 11:04

Всезнающий ALL кто-нибудь создавал ярлыки на рабочем строке командной строкой. Надо выполнить эту операцию из скрипта. Подскажите, plz
PS: Как все просто на UNIXe... ;-)

Автор: kenm Четверг, 11 Ноября 2004, 11:45

Код
Dim WSHShell, fs

Set WSHShell = WScript.CreateObject("WScript.Shell")

Set fs = WScript.CreateObject("Scripting.FileSystemObject")

Function MakeDesktopShortcut( name, target )

Dim Shortcut,DesktopPath,StartupPath

DesktopPath = WSHShell.SpecialFolders("Desktop")

Set Shortcut = WSHShell.CreateShortcut(DesktopPath & "\" &

name & ".lnk")

Shortcut.TargetPath = target

StartupPath = fs.GetParentFolderName( target )

If fs.FolderExists( StartupPath ) then

Shortcut.WorkingDirectory = StartupPath

End If

Shortcut.Save

End Function

MakeDesktopShortcut "Shortcut to Notepad", "C:\Windows\-Notepad.exe"

Автор: OVR Понедельник, 15 Ноября 2004, 12:49

ОК! Спасибо! Проблема решена...