Foxtable(狐表)用户栏目专家坐堂 → [求助]发布后文件升级包的文件代码如何写


  共有2000人关注过本帖树形打印复制链接

主题:[求助]发布后文件升级包的文件代码如何写

帅哥哟,离线,有人找我吗?
ymjr2011
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:544 积分:7290 威望:0 精华:0 注册:2011/6/22 20:16:00
[求助]发布后文件升级包的文件代码如何写  发帖心情 Post By:2017/11/16 10:31:00 [只看该作者]

如果将发布后的文件升级包放在192.168.1.11\xsserver 这个文件夹下,用代码应该怎么写?(不是在这里设置)

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20171116102818.png
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
ymjr2011
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:544 积分:7290 威望:0 精华:0 注册:2011/6/22 20:16:00
  发帖心情 Post By:2017/11/16 10:44:00 [只看该作者]

我的目的就是想从文件监视器中的 filecreated事件中,监测到有新的文件就复制到这个地址的文件夹下

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/11/16 10:58:00 [只看该作者]

 

发布那里设置,固定生成在某一个路径,在做一个按钮或者定时器,检测路径下是否有文件,如果有文件,就拷贝过去呗。

 

你也可以自己打包,打包很简单,参考 http://www.foxtable.com/webhelp/scr/2075.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
ymjr2011
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:544 积分:7290 威望:0 精华:0 注册:2011/6/22 20:16:00
  发帖心情 Post By:2017/11/16 11:08:00 [只看该作者]

我的目的就是想从文件监视器中的 filecreated事件中,监测到有新的文件就复制到这个地址的文件夹下(关于升级包只是举例,就是想复制某目录下的一个文件到以下地址的共享文件夹下去)
FileSys.CopyFile(e.FullPath , "192.168.1.266\server\" & e.Name)

以上不成功!

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/11/16 11:31:00 [只看该作者]

代码这样写

 

FileSys.CopyFile(e.FullPath , "\\192.168.1.266\server\" & e.Name)

 

执行后报什么错?


 回到顶部
帅哥哟,离线,有人找我吗?
ymjr2011
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:544 积分:7290 威望:0 精华:0 注册:2011/6/22 20:16:00
  发帖心情 Post By:2017/11/16 11:53:00 [只看该作者]

以下是引用有点甜在2017/11/16 11:31:00的发言:

代码这样写

 

FileSys.CopyFile(e.FullPath , "\\192.168.1.266\server\" & e.Name)

 

执行后报什么错?


没反应,也没复制过去


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/11/16 12:38:00 [只看该作者]

执行这个有什么问题?

 

Dim proc As new Process
proc.File = "\\192.168.1.266\server\"
proc.start


 回到顶部
帅哥哟,离线,有人找我吗?
ymjr2011
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:544 积分:7290 威望:0 精华:0 注册:2011/6/22 20:16:00
  发帖心情 Post By:2017/11/16 14:12:00 [只看该作者]

没问题,可以直接打开


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/11/16 15:15:00 [只看该作者]

弹出值

 

msgbox(e.FullPath )

msgbox("\\192.168.1.266\server\" & e.Name)

FileSys.CopyFile(e.FullPath , "\\192.168.1.266\server\" & e.Name)


 回到顶部
帅哥哟,离线,有人找我吗?
ymjr2011
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:544 积分:7290 威望:0 精华:0 注册:2011/6/22 20:16:00
  发帖心情 Post By:2017/11/16 15:56:00 [只看该作者]

好了,改成FTP方式 了,以上还是不行
[此贴子已经被作者于2017/11/16 15:57:05编辑过]

 回到顶部
总数 18 1 2 下一页