ftp上传文件工具例子

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

状态标签.标题 ＝ “正在获取目录列表,请稍候...”
状态标签.刷新显示 () ' 立即显示改变后的标题
数目 ＝ FTP目录列表 (“*.*”, , 文件名, 文件属性, 文件尺寸, 文件时间)
现行目录 ＝ FTP取现行目录 ()
.如果真 (现行目录 ≠ “/”)
远程文件框.插入表项 (, , 0, , , 0) ' 如果不是根目录,则插入到父目录的特殊表项
.如果真结束
.计次循环首 (数目, 容器1)
.如果真 (位与 (文件属性 [容器1], #子目录) ≠ 0)
名称 ＝ 文件名 [容器1]
.如果真 (取文本左边 (名称, 1) ≠ “.”)
索引 ＝ 远程文件框.插入表项 (, 名称, 1, , , 1)
远程文件框.置标题 (索引, 2, 到文本 (文件时间 [容器1]))
.如果真结束

.如果真结束

.计次循环尾 ()
.计次循环首 (数目, 容器1)
.如果真 (位与 (文件属性 [容器1], #子目录) ＝ 0)
索引 ＝ 远程文件框.插入表项 (, 文件名 [容器1], 2, , , 2)
远程文件框.置标题 (索引, 1, 到文本 (文件尺寸 [容器1]))
远程文件框.置标题 (索引, 2, 到文本 (文件时间 [容器1]))
.如果真结束

.计次循环尾 ()