文件上传服务器

先检查是否能连接上服务器。

  Dim result As Boolean = ZEMTPublicManager.ConnectShareDoc(shareCfg("URL"), shareCfg("USER"), shareCfg("PWD"))
  If result = False Then Throw New Exception("无法访问文件资源，请联系管理员")
   

（注：url=\\10.0.1.1\ss\sc

destPath=\\10.0.1.1\ss\sc\abc

destFile=\\10.0.1.1\ss\sc\abc\加文件名时间

）

然后进行下面操作

1、定义一个文件上传到服务器的文件目录

2、检查服务器上是否存在该指定上传路径目录

3、定义目的文件完整路径