我想找个VB创建URL快捷方式到桌面的代码。?
发布网友
发布时间：2024-12-29 07:21
共1个回答
热心网友
时间：1天前
'独家秘方，要加分哦
Private Sub Command1_Click()
Dim strFile As String
strFile = Environ$("HOMEPATH") & "\桌面\" & "网站快捷方式" & ".url"
Open strFile For Output As #1
Print #1, "[InternetShortcut]" & vbCrLf & "URL=" & Text1.Text
Close
End Sub
Private Sub Form_Load()
Text1.Text = "http://www.baidu.com/"
End Sub
