Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Как создать ссылки с помощью VB ??? Shortcut ???

458
20 июня 2003 года
DarkAngel
27 / / 20.01.2000
Как создать ссылки с помощью VB ???
Напишите пжлсто на [email]fromForums@mail.ru[/email]...
258
21 июня 2003 года
SergeySV
1.5K / / 19.03.2003
Цитата:
Originally posted by DarkAngel
Как создать ссылки с помощью VB ???
Напишите пжлсто на [email]fromForums@mail.ru[/email]...



Вот неплохой примерчик:

Код:
Option Explicit

' ВНИМАНИЕ!
' Для использования этой процедуры необходимо
' сделать ссылку на Windows Scripting host object model
' Для этого выберите в редакторе VBA пункт меню
' Tools -> References...
Public Sub vbaShortcut(MyPath As String, strName As String)
  Dim WSHShell As Object
  Dim objShortCut As IWshShortcut_Class
  Dim strDesktop As String
 
  'create an instance of the scripting host
  Set WSHShell = CreateObject("WScript.Shell")
  'Get the desktop folder path
  strDesktop = WSHShell.SpecialFolders("Desktop")
  'Make the shortcut in the desktop folder
  Set objShortCut = WSHShell.CreateShortcut(strDesktop & "\" & strName & ".lnk")
  'The target is the file or folder the shortcut activates
  objShortCut.TargetPath = MyPath
  'Give the shortcut an icon from an exe dll or icon file.
  'if you use an exe or dll you must specify the index of the icon like this:
  'objShortCut.IconLocation = "C:\Program Files\AutoCAD\acad.exe, 0"
  objShortCut.IconLocation = "Moricons.dll, 40"
  'Set a hot key combo
  objShortCut.Hotkey = "ALT+CTRL+F"
  'Add a description
  objShortCut.Description = "Sample short cut."
  'You have to save it, its a file
  objShortCut.Save
End Sub

'And here is a fast test:
Public Sub TEST_vbaShortcut()
  vbaShortcut "C:\WINDOWS\TEMP", "Temp Folder"
End Sub
'End code block
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог