pv工具箱模块自动载入器类似精易ET助手

.' 如果真 (文件是否存在 (易语言目录 () ＋ “pv工具箱\模块文件路径.pv”) ＝ 假)
' 写配置项 (易语言目录 () ＋ “pv工具箱\模块文件路径.pv”, “模块文件”, “共有”, “0”)
.如果真结束
zz ＝ 读配置项 (易语言目录 () ＋ “pv工具箱\模块文件路径.pv”, “模块文件”, “共有”, )
.判断开始 (树型框1.取项目文本 (0) ＝ “常用模块（” ＋ zz ＋ “）”)
文件 ＝ 多文件对话框 (“请选择你要载入的模块(可以多个同时载入)”, “易模块(ec)|*.ec”, , “D:\Program Files\e\ecom”, )
.计次循环首 (取数组成员数 (文件), a)
半截 ＝ 取文本右边 (文件 [a], 取文本长度 (文件 [a]) － 倒找文本 (文件 [a], “\”, , 假))
.如果真 (寻找文本 (到文本 (读入文件 (易语言目录 () ＋ “pv工具箱\模块文件路径.pv”)), 半截, , 真) ≠ -1)
信息框 (“发现文件：” ＋ 半截 ＋ “同名或已经载入了，所以终止本次载入。”, #警告图标, )
跳出循环 ()
.如果真结束
树型框1.加入项目 (0, 半截, 1, , , , )
创建目录 (易语言目录 () ＋ “pv工具箱\”)
现存 ＝ 读配置项 (易语言目录 () ＋ “pv工具箱\模块文件路径.pv”, “模块文件”, “共有”, )
.如果真 (现存 ＝ “”)
现存 ＝ “0”
.如果真结束
验证a ＝ 写配置项 (易语言目录 () ＋ “pv工具箱\模块文件路径.pv”, “模块文件”, “共有”, 到文本 (到整数 (现存) ＋ 1))
.判断开始 (验证a ＝ 真)
写配置项 (易语言目录 () ＋ “pv工具箱\模块文件路径.pv”, “模块”, “ec” ＋ 到文本 (到整数 (现存) ＋ 1), 文件 [a])
树型框1.置项目文本 (0, “常用模块（” ＋ 到文本 (到整数 (zz) ＋ 取数组成员数 (文件)) ＋ “）”)
.默认
信息框 (“文件记录创建失败了！”, 0, )
跳出循环 ()
.判断结束

.计次循环尾 ()