MyTetra Share
Делитесь знаниями!
Создание иконки на рабочем столе
Время создания: 16.03.2019 23:43
Раздел: !Закладки - VBA - Access - msa.polarcom.ru - 12 Папки и Файлы
Запись: xintrea/mytetra_db_adgaver_new/master/base/1532018071f9c64laevz/text.html на raw.githubusercontent.com

Создание иконки на рабочем столе

По материалам : http://hiprog.com/

Предпологается что иконка для ярлыка лежит в тойже директории что и база и  имеет тоже имя

Dim WSHShell, scut As Object

Dim k As String

Dim ico_lnk As String


k = """"

ico_lnk = Left$(CurrentDb.name, Len(CurrentDb.name) - 3) & "ico"

Set WSHShell = CreateObject("WScript.Shell")

Set scut = WSHShell.CreateShortcut(WSHShell.SpecialFolders("Desktop") & "\Название моего ярлыка.lnk")

scut.Arguments = CurrentDb.name

scut.Description = "Этот ярлык создан для запуска того то"

'scut.HotKey = "CTRL+ALT+SHIFT+X"

scut.IconLocation = WSHShell.ExpandEnvironmentStrings(ico_lnk)

scut.TargetPath = SysCmd(acSysCmdAccessDir) & "MSACCESS.EXE"

scut.WindowStyle = 3

scut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings(CurrentProject.Path)

scut.Save


Set WSHShell = Nothing




Так же в этом разделе:
 
MyTetra Share v.0.59
Яндекс индекс цитирования