有时候文件夹名字重复，可以在文件夹名称末尾带上序号。
.子程序 子程序_创建重名带序号目录
.参数 参_源目录, 文本型
.局部变量 i, 整数型
.局部变量 newPath, 文本型
.如果真 (取文本右边 (参_源目录, 1) ＝ “\”)
参_源目录 ＝ 取文本左边 (参_源目录, 取文本长度 (参_源目录) － 1)
.如果真结束
i ＝ 1
newPath ＝ 参_源目录
.判断循环首 (目录_是否存在 (newPath) ＝ 真)
newPath ＝ 参_源目录 ＋ “(” ＋ 到文本 (i) ＋ “)”
i ＝ i ＋ 1
.判断循环尾 ()
目录_创建 (newPath)
