| |
|
|
| | Хочу от программы на рабочий стол кидать ярлычок, но не уверен в пути к рабочему столу.
Есть ли способ его узнать. 
Public Function Yarlic(Kuda As String)
Dim WshShell As Object
Dim WshShortcut
Set WshShell = CreateObject("WScript.Shell")
Set WshShortcut = WshShell.CreateShortcut(Kuda & "\Плата.lnk")
WshShortcut.Arguments = "C:\autoexec.bat"
WshShortcut.Description = "Пла ярлык"
WshShortcut.HotKey = "CTRL+ALT+F"
WshShortcut.IconLocation = "shell32.dll, 5"
WshShortcut.TargetPath = CurrentProject.Path & "Ярлык.mdb"
WshShortcut.WindowStyle = 1
WshShortcut.WorkingDirectory = Kuda
WshShortcut.Save
End Function
Yarlic ("D:\Documents and Settings\1\Рабочий стол")
|
У меня вот такой путь, а у Вас??? | |
| |
| |
| |
|
|
| | А у нас так:
?Environ("USERPROFILE") & "\Рабочий стол\"
|
Правда прицеп "\Рабочий стол\" зависит от локализации | |
| |
| |
| |
|
|
| |
2 метод:
Set objShell = CreateObject("Wscript.Shell")
Set ShellApp = CreateObject("Shell.Application")
strFolder = objShell.SpecialFolders.Item("Desktop")
Set objShortcut = objShell.CreateShortcut(strFolder & "\My Shortcut.lnk")
objShortcut.TargetPath = "C:\MyDB.mdb"
objShortcut.Save
|
| |
| |
| |
| |
|
|
| | спасибо !!!!!!!!  | |
| |
| |
