Sub MakeShortcutNotepad()
Dim WSH As Object
Dim WSHShortcut As Object
Dim strPath As String
Set WSH = CreateObject("WScript.Shell")
strPath = WSH.SpecialFolders("MyDocuments") & "\" & "Notepad.lnk" 'Мои документы
'strPath = WSH.SpecialFolders("Desktop") & "\" & "Notepad.lnk" 'рабочий стол
Set WSHShortcut = WSH.CreateShortcut(strPath)
With WSHShortcut
.TargetPath = Environ("WINDIR") & "\" & "system32\notepad.exe"
.Description = "make shortcut to notepad"
.IconLocation = Environ("WINDIR") & "\" & "system32\notepad.exe,0"
.RelativePath = "C:\temp"
.WorkingDirectory = "C:\"
.Hotkey = "Ctrl+Alt+Q"
.Save
End With
End Sub
Как создать ярлык?
Кто нить подскажите плиз как програмно создать ярлык в опред. файла опред. папке(например мои документы)?
Заранее спасибо!!!!!!:)
Заранее спасибо!!!!!!:)
Создаём ярлык Блокнота в папке "Мои документы"
Код: