易语言连续创建目录例程源码

.版本 2

.程序集 窗口程序集1

.子程序 _按钮1_被单击
.局部变量 txt, 文本型
.局部变量 n, 整数型
.局部变量 txt1, 文本型

.如果真 (编辑框1.内容 ≠ “”)
    txt ＝ 取运行目录 () ＋ “” ＋ 编辑框1.内容
    .计次循环首 (50, n)
        txt1 ＝ txt ＋ “第” ＋ 到文本 (n) ＋ “课”
        创建目录_连续 (txt1 ＋ “预备知识”)
        创建目录_连续 (txt1 ＋ “源代码”)
    .计次循环尾 ()
.如果真结束


.子程序 _按钮2_被单击

创建目录_连续 (取运行目录 () ＋ “A\S\D\F”)

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

@呵呵仙