遍历目录下所有指定文件类型上传到七牛

.版本 2
.支持库 EThread
.支持库 iext

.程序集 窗口程序集1
.程序集变量 七牛账号, 文本型
.程序集变量 七牛密码, 文本型
.程序集变量 索引, 整数型
.程序集变量 计次, 整数型
.程序集变量 文件名, 文本型
.程序集变量 文件路径, 文本型

.子程序 __启动窗口_创建完毕

初始化 ()
七牛账号 ＝ “”
七牛密码 ＝ “”
启动线程 (&文件_枚举, , )

.子程序 文件_枚举

文件_枚举1 (“C:\”, “*.e”, &遍历子程, 真)
登陆七牛 ()  ' 登陆成功后开始上传

.子程序 登陆七牛
.局部变量 Msgid, 逻辑型
.局部变量 Conut, 整数型
.局部变量 i, 整数型

Msgid ＝ 登陆 (七牛账号, 七牛密码)
.如果 (Msgid)
    编辑框_log.加入文本 (“ =======> 登陆成功..” ＋ #换行符 ＋ #换行符)
.否则
    编辑框_log.加入文本 (“ =======> 登陆失败..” ＋ #换行符 ＋ #换行符)
.如果结束
编辑框_log.加入文本 (“ =======> 正在获取项目列表..” ＋ #换行符 ＋ #换行符)
Conut ＝ 获取项目 ()
.计次循环首 (Conut, i)
    编辑框_log.加入文本 (“ =======> 项目名:” ＋ 项目组 [i] ＋ #换行符 ＋ #换行符)
    启动线程 (&开始上传, , )
.计次循环尾 ()

.子程序 遍历子程
.参数 文件位置, 文本型

.如果真 (取文本右边 (文件位置, 1) ＝ “”)
    返回 ()
.如果真结束
超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 文件_取文件名 (文件位置, 真))
超级列表框1.置标题 (索引, 1, 文件位置)
索引 ＝ 索引 ＋ 1

.子程序 开始上传
.局部变量 token, 文本型

.计次循环首 (超级列表框1.取表项数 (), 计次)
    token ＝ 获取项目令牌 (项目组 [1])
    文件名 ＝ 超级列表框1.取标题 (计次, 0)
    文件路径 ＝ 超级列表框1.取标题 (计次, 1)
    编辑框_log.加入文本 (上传文件 (文件路径, 编码_gb2312到utf8 (文件名), token) ＋ #换行符)
.计次循环尾 ()
结束 ()

@红颜脸庞仍娇俏