在桌面上建立一个Internet快捷键

文章出处：网络转载 作者：未知　发布时间：2006-07-28 收藏到QQ书签

以下的代码可以在桌面上建立一个Internet快捷键。
DimStrURLFileAsString
DimStrURLTargetAsString
DimFileNumAsInteger

StrURLFile="C:\Windows\Desktop\VB编程乐园.url"'桌面目录和标题
StrURLTarget="http://www.vbeden.com"'地址
FileNum=FreeFile

'WritetheInternetShortcutfile
OpenStrURLFileForOutputAsFileNum
Print#FileNum,"[InternetShortcut]"
Print#FileNum,"URL="&StrURLTarget
CloseFileNum->