软件配置与FTP服务器同步源代码

逻辑值 ＝ FTP.连接FTP服务器 (服务器地址, 用户名, 密码, 端口号, 真) ' 连接服务器
调试输出 (“服务器连接=” ＋ 到文本 (逻辑值))
.如果真 (逻辑值 ＝ 假)
FTP.断开FTP服务器 ()
调试输出 (“服务器连接失败”)
返回 (更新成功)
.如果真结束
.如果真 (FTP.目录是否存在 (服务器目录) ＝ 假) ' 判断上传目录是否存在
FTP.目录创建 (服务器目录)
.如果真结束
.如果 (FTP.文件是否存在 (服务器目录 ＋ 配置文件) ＝ 真)
FTP.文件下载 (服务器目录 ＋ 配置文件, 取当前目录 () ＋ “\temp.ini”, )
本地更新时间 ＝ 到时间 (读配置项 (取当前目录 () ＋ “\” ＋ 配置文件, “更新记录”, “更新时间”, ))
服务器更新时间 ＝ 到时间 (读配置项 (取当前目录 () ＋ “\temp.ini”, “更新记录”, “更新时间”, ))
.判断开始 (本地更新时间 ＞ 服务器更新时间)
FTP.文件更名 (服务器目录 ＋ 配置文件, 服务器目录 ＋ “old.ini”)
FTP.文件上传 (取当前目录 () ＋ “\” ＋ 配置文件, 服务器目录 ＋ 配置文件, )
文件_删除 (取当前目录 () ＋ “\temp.ini”)
更新成功 ＝ 真
.判断 (本地更新时间 ＜ 服务器更新时间)
文件_删除 (取当前目录 () ＋ “\” ＋ 配置文件)
文件_改名 (取当前目录 () ＋ “\temp.ini”, 取当前目录 () ＋ “\” ＋ 配置文件)
更新成功 ＝ 真
.默认
更新成功 ＝ 真
.判断结束

.否则
.如果真 (FTP.文件上传 (取当前目录 () ＋ “\” ＋ 配置文件, 服务器目录 ＋ 配置文件, ))
更新成功 ＝ 真
.如果真结束

.如果结束
逻辑值 ＝ FTP.断开FTP服务器 () ' 断开服务器
调试输出 (“服务器断开=” ＋ 到文本 (逻辑值))
返回 (更新成功)