MyTetra Share
Делитесь знаниями!
Создание иконки на рабочем столе
19.07.2018
19:34
Раздел: VBA - Access - msa.polarcom.ru - 12 Папки и Файлы


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

По материалам : 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.52
Яндекс индекс цитирования