<p>在桌面上建立一個 Internet 快捷鍵 </p>
<p></p>
<p>以下的代碼可以在桌面上建立一個 Internet 快捷鍵。</p>
<p>Dim StrURLFile As String</p>
<p>Dim StrURLTarget As String</p>
<p>Dim FileNum As Integer</p>
<p></p>
<p>StrURLFile = "C:\Windows\Desktop\小亮VB天地.url" '桌面目錄和標題</p>
<p>StrURLTarget = "http://xlvb.yeah.net" '地址</p>
<p>FileNum = FreeFile</p>
<p></p>
<p>'Write the Internet Shortcut file</p>
<p>Open StrURLFile For Output As FileNum</p>
<p>Print #FileNum, "[InternetShortcut]"</p>
<p>Print #FileNum, "URL=" & StrURLTarget</p>
<p>Close FileNum </p>
<p></p>