Přidání odkazu do oblíbených položek
Před vlastní prací s tímto typem si přečtěte článek Speciální adresáře, který obsahuje routinu GetSpecialFolderLocation, kterou použijeme pro zjištění cesty k Oblíbeným položkám. Pak procedura pro přidání odkazu vypadá následovně:
Sub AddFavorite()
Dim ls_URL
As String
Dim ls_Path As String
Dim ls_LinkName As String
Dim li_FileNum As Integer
'Nastavení
URL
ls_URL
= "http://www.tabor.cz/bozena"
'Zjištění
speciálního adresáře oblíbených položek,
ls_Path
= GetSpecialFolderLocation(sfidFAVORITES)
If Not Right(ls_Path,1) = "\" Then
ls_Path=ls_Path+"\"
End If
'nastavení
jména nového odkazu
ls_LinkName
= "The Bozena's Web.url"
li_FileNum = FreeFile
Open ls_Path & ls_LinkName For Output As #li_FileNum
Print #li_FileNum, "[InternetShortcut]"
Print #li_FileNum, "URL=" & ls_URL
Close #li_FileNum
End Sub