ник: час
Хочу от программы на рабочий стол кидать ярлычок, но не уверен в пути к рабочему столу.
Есть ли способ его узнать. 
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\Рабочий стол")
|
У меня вот такой путь, а у Вас???