Форумы HiProg.com - MS ACCESS, VBA, VB

ник: Alex
Все нашел, разобрался, сделал
Вот - может кому сгодится:

'создание ярлыка приложения Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _ "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long 'узнаем букву системного диска (где живет системная БД) Public Function GetSysDisk() As String     Dim SysDbPath As String     SysDbPath = Access.SysCmd(acSysCmdGetWorkgroupFile)     GetSysDisk = Mid(SysDbPath, 1, 1) End Function 'узнаем имя юзера Function fOSUserName() As String Dim lngLen As Long, lngX As Long Dim strUserName As String    strUserName = String$(254, 0)    lngLen = 255    lngX = apiGetUserName(strUserName, lngLen)    If lngX <> 0 Then        fOSUserName = Left$(strUserName, lngLen - 1)    Else        fOSUserName = ""    End If End Function 'узнаем путь к каталогу приложения Public Function CurrentPath() As String  Dim strName As String  strName = CurrentDb.Name  CurrentPath = Left(strName, Len(strName) - Len(Dir(strName)) - 1)  End Function 'создаем ярлык Function StartLink() Set WshShell = CreateObject("WScript.Shell")     'размещение ярлыка Set WshShortcut = WshShell.CreateShortcut(GetSysDisk() & ":\Documents and Settings\" & fOSUserName() & "\Рабочий стол\ИмяПриложения.lnk")     'иконка ярлыка WshShortcut.IconLocation = "shell32.dll, 5"     'рабочая папка WshShortcut.WorkingDirectory = CurrentPath()     'объект (путь запуска) WshShortcut.TargetPath = CurrentPath() & "\ИмяПриложения.mdb"     'быстрый вызов WshShortcut.HotKey = "CTRL+ALT+F"     'аргумент (для быстрого вызова) 'WshShortcut.Arguments = CurrentPath() & "\ИмяПриложения.mdb"     'коментарий WshShortcut.Description = "Мое приложение"     'не понял, что такое 'WshShortcut.WindowStyle = 1 WshShortcut.Save MsgBox "Размещение ярлыка: " & GetSysDisk() & ":\Documents and Settings\" & fOSUserName() & "\Рабочий стол\ИмяПриложения.lnk" End Function