网站桌面版问题，希望各位前辈不吝赐教！

Private Sub Form_Load()
Shell "rundll32.exe url.dll,FileProtocolHandler http://www.baidu.com", vbNormalFocus
End
End Sub

比如这样，我可以生成为一个baidu.exe的软件  但是如何让这个软件下载后点击运行后创建指定目录并在首页创建快捷方式。


例如，在C:\Program Files\test\  创建相应文件 如 卸载文件 baidu.exe 等等

并且在桌面首页生成一个快捷方式运行C:\Program Files\test\baidu.exe

希望各位前辈不吝赐教！！