创建任意目录支持中文数字创建

.子程序 创建任意目录, , 公开
.参数 目录, 文本型
.局部变量 a, 整数型

目录 ＝ 全文本替换 (目录, “/”, “\”)
.如果真 (取文本右边 (目录, 1) ＝ “\”)
目录 ＝ 取文本左边 (目录, 取文本长度 (目录) － 1)
.如果真结束
.判断循环首 (a ＜ 倒找文本 (目录, “\”, , 真))
a ＝ 寻找文本 (目录, “\”, a ＋ 1, 真)
创建目录 (取文本左边 (目录, a))
.判断循环尾 ()
创建目录 (目录)