高校问答日本武士电影御用金:编程问题
来源：百度文库 编辑：高校问答 时间：2024/05/12 03:18:55
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:\下 谢谢,