易语言自动批量创建文件夹小程序

置托盘图标 (#托盘图标, “批量创建文件夹”)
打开 (“mcdb.edb”, , , , , , )
列表图片组 ＝ 建空图片组 (64, 64)
加入图片 (列表图片组, #图片, )
超级列表框.图片组 ＝ 列表图片组
查询_文件夹列表 ()
最近搞图片什么的天天创建文件夹，一个一个创建感觉很麻烦搞了一个小程序，方便点没什么技术含量大佬不要见笑。

.如果真 (编辑框_地址.内容 ＝ “”)
信息框 (“请输入要创建的地址！”, 0, “提示！”, )
返回 ()
.如果真结束
局_待创建文件数 ＝ 超级列表框.取表项数 ()
.计次循环首 (局_待创建文件数, 记录)
局_文件名 ＝ 超级列表框.取标题 (记录 － 1, )
局_创建地址 ＝ 编辑框_地址.内容 ＋ “\” ＋ 局_文件名
创建目录 (局_创建地址)
.如果真 (文件是否存在 (局_创建地址))
局_已创建文件数 ＝ 局_已创建文件数 ＋ 1
.如果真结束
调试输出 (局_创建地址, 局_文件名)
.计次循环尾 ()
.如果真 (局_已创建文件数 ＝ 局_待创建文件数)
信息框 (“已经创建完毕！”, 0, “提示！”, )