Создание ярлыка с помощью WSH - VB
Формулировка задачи:
Как создать ярлык с ключом в коммандной строке, например, "C:\MyDir\Myapp -k1"?
При создании по примеру из WSH хелпа строка в созданном ярлыке получается в кавычках и соответственно, ошибка:"Windows требуется файл "C:\MyDir\Myapp -k1"и т.д.
Windows 2000
Спасибо.
При создании по примеру из WSH хелпа строка в созданном ярлыке получается в кавычках и соответственно, ошибка:"Windows требуется файл "C:\MyDir\Myapp -k1"и т.д.
Windows 2000
Спасибо.
Решение задачи: «Создание ярлыка с помощью WSH»
textual
Листинг программы
<font size="2"><font color="blue">Private</font> <font color="blue">Sub</font> cmdCreateLink_Click()<br> <font color="green">' Предварительно делаем ссылку на библиотеку C:\WINDOWS\system32\wshom.ocx</font><br> <font color="green">' Windows Script Host Object Model</font><br><br> <font color="blue">Dim</font> wshell <font color="blue">As</font> <font color="blue">New</font> WshShell<br> <font color="blue">Dim</font> myShort <font color="blue">As</font> WshShortcut<br> <font color="blue">Dim</font> strDesktop <font color="blue">As</font> <font color="blue">String</font><br><br> strDesktop = wshell.SpecialFolders("Desktop")<br> <br> <font color="blue">Set</font> myShort = wshell.CreateShortcut(strDesktop & "\I love VB.lnk")<br> <br> myShort.WindowStyle = 3<br> <br> <font color="green">' Полный путь к рисунку иконки укажи сам</font><br> myShort.IconLocation = "C:\Program Files\Microsoft Visual Studio\Common\Graphics\Icons\Computer\msgbox03.ico"<br> myShort.TargetPath = "%windir%\notepad.exe"<br> myShort.Hotkey = "ALT+CTRL+F"<br> <font color="green">'</font><br> <font color="green">' Arguments - это твой ключ</font><br> myShort.Arguments = "c:\autoexec.bat"<br> <font color="green">'</font><br> <font color="green">'</font><br> myShort.Save<br><font color="blue">End</font> <font color="blue">Sub</font><br></font>
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д