| |
Создать ссылку на страницу в Интернете |
|
| |
Данный пример разместит на рабочем столе ярлык
на сайт VBnet.RU
(при
условии, что ваш путь к рабочему столу =
"C:\WIN\Рабочий стол").
Sub CreateInternetShortCut(URLFile As String, URLTarget As
String)
Dim intFreeFile As Integer
intFreeFile = FreeFile
Open URLFile For Output As intFreeFile
Print #intFreeFile, "[InternetShortcut]"
Print #intFreeFile, "URL=" & URLTarget
Close intFreeFile
End Sub
Private Sub Form_Load()
CreateInternetShortCut "C:\WIN\Рабочий стол\test.url",
"http://vbnet.ru"
End Sub
|
|
| |
|
|
|
|