Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: MS ACCESS

Вопросы связанные с MS ACCESS

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: Как программно создать ярлык...
 
 автор: час   (03.06.2008 в 21:12)   личное сообщение
 
 

Как подступиться не знаю....
Идея создать ярлык для базы и скопировать его к примеру на рабочий стол.
Статью читал........http://hiprog.com/index.php?option=com_content&task=view&id=618
Но видимо можно и попроще.
Как это из VBA написать.......
может как в строке выполнить ...........
Ничё на ум не идёт(ума не хватает )

  Ответить  
 
 автор: osmor   (04.06.2008 в 08:47)   личное сообщение
 
 

   Set WshShell = CreateObject("WScript.Shell")
Set WshShortcut = WshShell.CreateShortcut("C:\Notepad.lnk")
WshShortcut.Arguments = "C:\autoexec.bat"
WshShortcut.Description = "Пробный ярлык"
WshShortcut.HotKey = "CTRL+ALT+F"
WshShortcut.IconLocation = "shell32.dll, 5"
WshShortcut.TargetPath = "notepad.exe"
WshShortcut.WindowStyle = 1
WshShortcut.WorkingDirectory = "C:\"
WshShortcut.Save


Украл здесь:
http://www.script-coding.info/WSH/WshShell.html#5.

  Ответить  
 
 автор: Час   (04.06.2008 в 10:56)   личное сообщение
 
 

Спасибо за клад - http://www.script-coding.info/WSH/WshShell.html#5

http://www.script-coding.info/index.html

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList