Private Sub Command1_Click()
Open "C:\Windows\Preferiti\" & Text1.Text & ".url" _ For Binary Access Write As #1 Put #1,,"[InternetShortcut]" & vbNewLine & "URL=" & _ Text2.Text Close #1 MsgBox "URL Aggiunto su preferiti!",vbInformation End Sub |