Office中国论坛/Access中国论坛

标题: 求助：远程文件下载代码注解 [打印本页]

作者: zzcjp 时间: 2009-4-30 08:21
标题: 求助：远程文件下载代码注解
我用以下代码来实现远程文件下载：
Dim H, S, qm
Set H = CreateObject("Microsoft.XMLHTTP")
qm = Me.服务器IP & Me.目录 & "/" & Me.文件名
H.Open "GET", qm, False '网络中的文件URL
Me.标签0.Visible = True
H.Send
Set S = CreateObject("ADODB.Stream")
S.Type = 1
S.Open
S.Write H.Responsebody
S.SaveToFile Me.默认存放路径 & "\" & Me.文件名, 2 '本地保存文件名
Me.标签0.Visible = True
S.Close
MsgBox "升级文件已成功下载！", vbOKOnly, "系统提示"

如果文件类型是".exe"/".doc"/".txt"/".xls"均可以下载，但是，“.mdb"/“.mde"类型文件均不能下载不知何故？代码从网上获得，我对这段代码不了解，请高手注解，谢谢！

作者: WDLRCZT 时间: 2009-4-30 09:46
关注中……

作者: liwen 时间: 2009-4-30 11:55
经测试能够下载.mdb类型的文件，楼主可先试一下，不用代码是否可以直接下载该类型的文件。

作者: zzcjp 时间: 2009-4-30 16:33
我试过N多次了，不能下载。不知道是不是和“权限”有关？

作者: zzcjp 时间: 2009-4-30 16:35
另外，ACCESS的系统表：MSysObjects 如何进行读写操作？

作者: zzcjp 时间: 2009-4-30 16:42
远程文件下载方法：

FileCopy "\\192.168.63.2\d$\远程共享\SQL_物流管理.mde", CurrentProject.Path & "\SQL_物流管理.mde" '服务器文件下载到本地
可以下载任意类型文件。

作者: zzcjp 时间: 2009-5-3 01:41
FileCopy "\\192.168.63.2\d$\远程共享\SQL_物流管理.mde", CurrentProject.Path & "\SQL_物流管理.mde" '服务器文件下载到本地

这句代码是放在【升级】按钮的单击事件中，有一个我百思不解的问题，当程序没有编译时在MDB格式中运行得好好的，把应用程序编译成MDE格式，单击按钮就出错，提示单击事件出错，哪位大侠能够解决这个问题？

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)