求助：远程文件下载代码注解

zzcjp

我用以下代码来实现远程文件下载：
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

关注中……

liwen

经测试能够下载.mdb类型的文件，楼主可先试一下，不用代码是否可以直接下载该类型的文件。

zzcjp

我试过N多次了，不能下载。不知道是不是和“权限”有关？

zzcjp

另外，ACCESS的系统表：MSysObjects 如何进行读写操作？

zzcjp

远程文件下载方法：

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

zzcjp

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

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