Tvorba URL souboru
'deklarace proměnných
Dim StrURLFile As String
Dim StrURLTarget As String
Dim FileNum As Integer
'inicializace proměnných
StrURLFile = "C:\Windows\Desktop\bozena.url"
StrURLTarget = "http://www.bozena.cz"
FileNum = FreeFile
'Zapsání do souboru
Open StrURLFile For Output As FileNum
Print #FileNum, "[InternetShortcut]"
Print #FileNum, "URL=" & StrURLTarget
Close FileNum
