以下的代码可以在桌面上建立一个 Internet 快捷键。 Dim StrURLFile As String Dim StrURLTarget As String Dim FileNum As Integer
StrURLFile = "C:\Windows\Desktop\VB编程乐园.url" '桌面目录和标题 逆风编程技术 StrURLTarget = "http://www.VBeden.com" '地址 FileNum = FreeFile
'Write the Internet Shortcut file Open StrURLFile For Output As FileNum Print #FileNum, "[InternetShortcut]" Print #FileNum, "URL=" & StrURLTarget Close FileNum
|