这个activex组件什么做?????????--急

cghdenglu 2004-10-27 06:05:26

怎样能做到下载服务器上文件到客户端指定目录下的，最好不提示下载框? 最好提供源码,感激不尽

...全文

153 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

blackbug119 2004-10-29

打赏
举报

用WINSOCK写一个服客两端的传文件就可以了,本来有源码的.可是源码不小心被格了.

cghdenglu 2004-10-29

打赏
举报

youjiancgh@yahoo.com.cn

cghdenglu 2004-10-29

打赏
举报

结账

cghdenglu 2004-10-29

打赏
举报

已经收到,谢谢

cghdenglu 2004-10-28

打赏
举报

其实我只是想把word文件下载到客户端的指定目录中

cghdenglu 2004-10-28

打赏
举报

to daisy8675(莫依)
小弟初学,解决问题在急,没有办法啊

bboos 2004-10-28

打赏
举报

Function FileDownLoad(ByVal ObjInet As Control, ByVal strURL As String, ByVal strSaveFile As String) As Boolean
'功能：文件下载函数
'ObjInet：Inet控件
'strURL：Ftp服务器的地址
'strSaveFile：下载文件保存地址
On Error GoTo errhandel
Dim b() As Byte
Dim StrShell As String

ObjInet.AccessType = icUseDefault
b() = ObjInet.OpenURL(strURL, icByteArray)

Open strSaveFile For Binary Access _
Write As #1
Put #1, , b()
Close #1

If Dir(strSaveFile) <> "" Then
If MsgBox("立即更新下载程序", vbYesNo, "提示") = vbYes Then
StrShell = Shell(strSaveFile, 1)
Else
Kill strSaveFile
End If

Else
MsgBox "文件不存在"
End If
Exit Function
errhandel: MsgBox Err.Description
End Function
//下载并执行程序，可能不是你要的，但可以参考一下哦。