路径自己改
Private Sub Command1_Click()
Shell "rundll32.exe url.dll,FileProtocolHandler " & "d:/1.lnk", vbNormalFocus
End Sub
补充
Private Sub Command1_Click()
Shell "rundll32.exe url.dll,FileProtocolHandler " & "C:/Documents and Settings/Administrator/桌面/" & text1.Text, vbNormalFocus
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024