杭州交通信息网社会上的不良现象:编程问题
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/17 00:46:08
Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long
Private Sub Form_Load()
On Error GoTo ERR_OUT
DoFileDownload StrConv("http://172.18.25.10/setup.exe", vbUnicode)
Exit Sub
ERR_OUT:
MsgBox "There is an error accoured"
Exit Sub
End Sub
怎么可以叫他不出提示,直接保存到,c:\下 谢谢,
Private Sub Form_Load()
On Error GoTo ERR_OUT
DoFileDownload StrConv("http://172.18.25.10/setup.exe", vbUnicode)
Exit Sub
ERR_OUT:
MsgBox "There is an error accoured"
Exit Sub
End Sub
怎么可以叫他不出提示,直接保存到,c:\下 谢谢,