操作简单的ftp管理软件

.如果真 (打开文件对话框.打开 () ＝ 真 且 打开文件对话框.文件名 ≠ “”)
远程文件名 ＝ 取文本右边 (打开文件对话框.文件名, 取文本长度 (打开文件对话框.文件名) － 倒找文本 (打开文件对话框.文件名, “\”, , 假))
FTP文件上传 (打开文件对话框.文件名, 远程文件名, 假)

.计次循环首 (FTP目录列表 (“*.*”, , 文件名数组, 文件属性组, 文件尺寸组, 文件时间组), 循环记录变量)
已分割文本 ＝ 分割文本 (文件名数组 [循环记录变量], “.”, )
.判断开始 (文件属性组 [循环记录变量] ＝ 16)
文件列表框.插入表项 (-1, 文件名数组 [循环记录变量], 5, -1, 0, 文件属性组 [循环记录变量])