ftp上传文件管理服务器软件

.如果真 (FTP目录列表 (文件名, , , , , ) ＞ 0) ' 查看该文件是否存在
.如果真 (信息框 (“文件” ＋ #左引号 ＋ 文件名 ＋ #右引号 ＋ “已经存在,覆盖它吗?”, #是否钮 ＋ #询问图标 ＋ #默认按钮二, “询问”) ≠ #是钮)
返回 ()
.如果真结束

.如果真结束
状态标签.标题 ＝ “正在上传文件” ＋ #左引号 ＋ 文件名 ＋ #右引号 ＋ “,请稍候...”
状态标签.刷新显示 () ' 立即显示改变后的标题
.如果 (FTP文件上传 (文件名, 文件名))
填充远程框 ()
状态标签.标题 ＝ “上传文件” ＋ #左引号 ＋ 文件名 ＋ #右引号 ＋ “成功”

.如果真 (信息框 (“您确认要删除FTP服务器上的文件” ＋ #左引号 ＋ 文件名 ＋ #右引号 ＋ “吗?”, #是否钮 ＋ #询问图标 ＋ #默认按钮二, “询问”) ≠ #是钮)
返回 ()
.如果真结束
状态标签.标题 ＝ “正在删除文件” ＋ #左引号 ＋ 文件名 ＋ #右引号 ＋ “,请稍候...”
状态标签.刷新显示 () ' 立即显示改变后的标题

_驱动器框1_驱动器被改变 ()
本地文件框.刷新显示 () ' 因为进入填充远程框过程将耗时间较长,所以在这里强制本地文件框立即显示
FTP置现行目录 (“\”) ' 将远端目录调整到根目录