神马品牌网放风筝比赛作文400字:编程问题
来源：百度文库 编辑：神马品牌网 时间：2024/04/28 12:07:00
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:\下 谢谢,