Linksite

'Il seguente codice crea un collegamento sul desktop.

'dichiarazione variabili

Dim StrURLFile As String
Dim StrURLTarget As String
Dim FileNum As Integer
'Inizializzazione variabili

StrURLFile = "C:\Windows\Desktop\VB-World.url"
StrURLTarget = "http://www.jelsoft.com/vbw/"
FileNum = FreeFile
'Scrive il file

Open StrURLFile For Output As FileNum
Print #FileNum, "[InternetShortcut]"
Print #FileNum, "URL=" & StrURLTarget
Close FileNum