以下的代码可以在桌面上建立一个 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
|
