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


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

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

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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)

 

执行后报什么错?


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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)


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/11/16 16:20:00 [显示全部帖子]

以下是引用ymjr2011在2017/11/16 15:56:00的发言:
好了,改成FTP方式 了,以上还是不行
[此贴子已经被作者于2017/11/16 15:57:05编辑过]

 

改成fpt方式,你要upload上传 http://www.foxtable.com/webhelp/scr/1410.htm

 


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/11/16 21:00:00 [显示全部帖子]

回复13楼,写三个upLoad语句就好了嘛。

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/11/17 10:46:00 [显示全部帖子]

改成这样行不行?

 

If ftp1.Upload("g:\升级包\update.txt","/update.txt") = True Then

 


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/11/17 10:57:00 [显示全部帖子]

以下是引用cd_tdh在2017/11/17 10:54:00的发言:
可以了,这个上传后是自动覆盖原来的文件的哇?

 

是的,如果同名,会覆盖原来的文件。


 回到顶部