请教关于VB从数据库服务器下载文件的问题，如果通过不设置共享目录从服务器下载？

Question

我这样设计了一个程序，读取服务器中数据库某个表和软件现有版本比较，并决定是否更新。更新的时候从服务器下载文件到本地。但问题是怎样从服务器下载文件？如果设置共享目录的话达不到安全性。因为至少要通过数据库连接验证才能否下载。请问该怎样实现？还有就是SQL Server 2000提供文件下载服务吗？

Answer 1

方案有几个
1、共享方式：在程序中添加net use等命令语句控制共享访问目录；然后及时再关闭该连接；
    shellstr = "net use " & Trim(服务器名) & " " & Trim(服务器密码) & " /user:" & Trim(computeruser)
    a = Shell(shellstr, vbHide)
   ShellExecute Me.hwnd, "open", "\\10.4.93.16\mis\mis.EXE", "", "", vbNormalFocus
   运行安装程序即可
2、http形式    搭个iis，把程序放置好，验证在你的mis中完成，满足要求且需要更新的用户，自动下载文件安装。或者你开发个update程序，研究一下http下载协议，直接得到文件并覆盖根目录下需要安装的文件。
3、ftp形式
   vb的ftp访问，源码很多，可以参考；可以开发独立的update程序，下载并覆盖需要升级的文件完成升级。