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