说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

在桌面上建立一个 Internet 快捷键 -VB资料

HTML文档下载 WORD文档下载 PDF文档下载
在桌面上建立一个 Internet 快捷键 -VB资料

以下的代码可以在桌面上建立一个 Internet 快捷键。
Dim StrURLFile As String
Dim StrURLTarget As String
Dim FileNum As Integer

StrURLFile = "C:\Windows\Desktop\小亮VB天地.url" '桌面目录和标题
StrURLTarget = "http://xlvb.yeah.net" '地址
FileNum = FreeFile

'Write the Internet Shortcut file
Open StrURLFile For Output As FileNum
Print #FileNum, "[InternetShortcut]"
Print #FileNum, "URL=" & StrURLTarget
Close FileNum

备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘