Создание ярлыка с помощью WSH - VB

Узнай цену своей работы

Формулировка задачи:

Как создать ярлык с ключом в коммандной строке, например, "C:\MyDir\Myapp -k1"?
При создании по примеру из 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>

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 3.364 из 5