易语言是不是无法区分文件和文件夹？为什么把文件夹当.....

导出函数

  

窗口程序集名	保 留	保 留	备 注
程序集1
变量名	类 型	数组	备 注
目标文件夹	文本型
源文件夹	文本型

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类 型	静态	数组	备 注
说明	文本型

说明 ＝ “本程序执行以下操作：” ＋ #换行符
说明 ＝ 说明 ＋ “1 清空存放源文件夹的目标文件夹内容” ＋ #换行符
说明 ＝ 说明 ＋ “2 在目标文件夹里建立源文件夹内的所有文件夹和文件，但是文件内容改成源文件的大小” ＋ #换行符
说明 ＝ 说明 ＋ “千万不要把源文件夹和目标文件夹弄反了，否则后果自负！！！” ＋ #换行符
信息框 (说明, 0, “使用说明”, )
标准输出 (, “请将要生成目录文件结构的源文件夹拖到本控制台！” ＋ #换行符 )
源文件夹 ＝ 标准输入 ()
源文件夹 ＝ 删首尾空 (源文件夹)
源文件夹 ＝ 子文本替换 (源文件夹, #引号, , , , 真)
判断循环首 (取文本中间 (源文件夹, 2, 2) ≠ “:\”)
信息框 (“请将要生成目录文件结构的源文件夹拖到本控制台！” ＋ #换行符, 0, , )
源文件夹 ＝ 标准输入 ()
源文件夹 ＝ 删首尾空 (源文件夹)
源文件夹 ＝ 子文本替换 (源文件夹, #引号, , , , 真)
判断循环尾 ()
标准输出 (, “请将存放源文件夹目录文件结构的目标文件夹拖动到本控制台！” ＋ #换行符 )
目标文件夹 ＝ 标准输入 ()
目标文件夹 ＝ 删首尾空 (目标文件夹)
目标文件夹 ＝ 子文本替换 (目标文件夹, #引号, , , , 真)
判断循环首 (取文本中间 (目标文件夹, 2, 2) ≠ “:\”)
信息框 (“请将存放源文件夹目录文件结构的目标文件夹拖动到本控制台！” ＋ #换行符, 0, , )
目标文件夹 ＝ 标准输入 ()
目标文件夹 ＝ 删首尾空 (目标文件夹)
目标文件夹 ＝ 子文本替换 (目标文件夹, #引号, , , , 真)
判断循环尾 ()
如果真 (取文本右边 (源文件夹, 1) ＝ “\”)
源文件夹 ＝ 取文本左边 (源文件夹, 取文本长度 (源文件夹) － 1)
如果真 (取文本右边 (目标文件夹, 1) ＝ “\”)
目标文件夹 ＝ 取文本左边 (目标文件夹, 取文本长度 (目标文件夹) － 1)
删除目录 (目标文件夹)
创建目录 (目标文件夹)  ' 这两句作用是清空目标文件夹内容
递归遍历文件夹及文件 (源文件夹)
标准输出 (, “任务成功完成，按回车键退出！”)
标准输入 ()
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
递归遍历文件夹及文件
参数名	类 型	参考	可空	数组	备 注
父文件夹	文本型

变量名	类 型	静态	数组	备 注
子文件夹	文本型
文件	文本型
文件大小	双精度小数型
对应文件	文本型
对应文件夹	文本型

文件 ＝ 寻找文件 (父文件夹 ＋ “\*”, 1 ＋ 2 ＋ 4 ＋ 32)
判断循环首 (文件 ≠ “”)
如果真 (文件 ≠ “.” 且 文件 ≠ “..” 且 文件 ≠ “$RECYCLE.BIN” 且 文件 ≠ “System Volume Information”)
文件大小 ＝ 取文件尺寸 (父文件夹 ＋ “\” ＋ 文件)
对应文件 ＝ 子文本替换 (父文件夹 ＋ “\” ＋ 文件, 源文件夹, 目标文件夹, , 1, 假)
标准输出 (, “正在建立文件： ” ＋ 对应文件 ＋ #换行符 )
写到文件 (对应文件, 到字节集 (到文本 (文件大小)))
文件 ＝ 寻找文件 (, 1 ＋ 2 ＋ 4 ＋ 32)
判断循环尾 ()
子文件夹 ＝ 寻找文件 (父文件夹 ＋ “\*”, #子目录 )
判断循环首 (子文件夹 ≠ “”)
如果真 (子文件夹 ≠ “.” 且 子文件夹 ≠ “..” 且 子文件夹 ≠ “$RECYCLE.BIN” 且 子文件夹 ≠ “System Volume Information”)
对应文件夹 ＝ 子文本替换 (父文件夹 ＋ “\” ＋ 子文件夹, 源文件夹, 目标文件夹, , 1, 假)
标准输出 (, “正在建立文件夹：” ＋ 对应文件夹 ＋ #换行符 )
创建目录 (对应文件夹)
递归遍历文件夹及文件 (父文件夹 ＋ “\” ＋ 子文件夹)
子文件夹 ＝ 寻找文件 (, #子目录 )
判断循环尾 ()

.版本 2<br /> <br /> .程序集 程序集1<br /> .程序集变量 目标文件夹, 文本型<br /> .程序集变量 源文件夹, 文本型<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 说明, 文本型<br /> <br /> 说明 ＝ “本程序执行以下操作：” ＋ #换行符<br /> 说明 ＝ 说明 ＋ “1 清空存放源文件夹的目标文件夹内容” ＋ #换行符<br /> 说明 ＝ 说明 ＋ “2 在目标文件夹里建立源文件夹内的所有文件夹和文件，但是文件内容改成源文件的大小” ＋ #换行符<br /> 说明 ＝ 说明 ＋ “千万不要把源文件夹和目标文件夹弄反了，否则后果自负！！！” ＋ #换行符<br /> 信息框 (说明, 0, “使用说明”, )<br /> <br /> 标准输出 (, “请将要生成目录文件结构的源文件夹拖到本控制台！” ＋ #换行符)<br /> 源文件夹 ＝ 标准输入 ()<br /> 源文件夹 ＝ 删首尾空 (源文件夹)<br /> 源文件夹 ＝ 子文本替换 (源文件夹, #引号, , , , 真)<br /> .判断循环首 (取文本中间 (源文件夹, 2, 2) ≠ “:\”)<br />     信息框 (“请将要生成目录文件结构的源文件夹拖到本控制台！” ＋ #换行符, 0, , )<br />     源文件夹 ＝ 标准输入 ()<br />     源文件夹 ＝ 删首尾空 (源文件夹)<br />     源文件夹 ＝ 子文本替换 (源文件夹, #引号, , , , 真)<br /> .判断循环尾 ()<br /> 标准输出 (, “请将存放源文件夹目录文件结构的目标文件夹拖动到本控制台！” ＋ #换行符)<br /> 目标文件夹 ＝ 标准输入 ()<br /> 目标文件夹 ＝ 删首尾空 (目标文件夹)<br /> 目标文件夹 ＝ 子文本替换 (目标文件夹, #引号, , , , 真)<br /> .判断循环首 (取文本中间 (目标文件夹, 2, 2) ≠ “:\”)<br />     信息框 (“请将存放源文件夹目录文件结构的目标文件夹拖动到本控制台！” ＋ #换行符, 0, , )<br />     目标文件夹 ＝ 标准输入 ()<br />     目标文件夹 ＝ 删首尾空 (目标文件夹)<br />     目标文件夹 ＝ 子文本替换 (目标文件夹, #引号, , , , 真)<br /> .判断循环尾 ()<br /> <br /> <br /> <br /> .如果真 (取文本右边 (源文件夹, 1) ＝ “\”)<br />     源文件夹 ＝ 取文本左边 (源文件夹, 取文本长度 (源文件夹) － 1)<br /> <br /> .如果真结束<br /> .如果真 (取文本右边 (目标文件夹, 1) ＝ “\”)<br />     目标文件夹 ＝ 取文本左边 (目标文件夹, 取文本长度 (目标文件夹) － 1)<br /> <br /> .如果真结束<br /> 删除目录 (目标文件夹)<br /> 创建目录 (目标文件夹)  ' 这两句作用是清空目标文件夹内容<br /> 递归遍历文件夹及文件 (源文件夹)<br /> 标准输出 (, “任务成功完成，按回车键退出！”)<br /> 标准输入 ()<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> <br /> <br /> .子程序 递归遍历文件夹及文件<br /> .参数 父文件夹, 文本型<br /> .局部变量 子文件夹, 文本型<br /> .局部变量 文件, 文本型<br /> .局部变量 文件大小, 双精度小数型<br /> .局部变量 对应文件, 文本型<br /> .局部变量 对应文件夹, 文本型<br /> <br /> 文件 ＝ 寻找文件 (父文件夹 ＋ “\*”, 1 ＋ 2 ＋ 4 ＋ 32)<br /> .判断循环首 (文件 ≠ “”)<br />     .如果真 (文件 ≠ “.” 且 文件 ≠ “..” 且 文件 ≠ “$RECYCLE.BIN” 且 文件 ≠ “System Volume Information”)<br />         文件大小 ＝ 取文件尺寸 (父文件夹 ＋ “\” ＋ 文件)<br />         对应文件 ＝ 子文本替换 (父文件夹 ＋ “\” ＋ 文件, 源文件夹, 目标文件夹, , 1, 假)<br /> <br />         标准输出 (, “正在建立文件： ” ＋ 对应文件 ＋ #换行符)<br />         写到文件 (对应文件, 到字节集 (到文本 (文件大小)))<br /> <br />     .如果真结束<br />     文件 ＝ 寻找文件 (, 1 ＋ 2 ＋ 4 ＋ 32)<br /> .判断循环尾 ()<br /> 子文件夹 ＝ 寻找文件 (父文件夹 ＋ “\*”, #子目录)<br /> .判断循环首 (子文件夹 ≠ “”)<br />     .如果真 (子文件夹 ≠ “.” 且 子文件夹 ≠ “..” 且 子文件夹 ≠ “$RECYCLE.BIN” 且 子文件夹 ≠ “System Volume Information”)<br />         对应文件夹 ＝ 子文本替换 (父文件夹 ＋ “\” ＋ 子文件夹, 源文件夹, 目标文件夹, , 1, 假)<br /> <br />         标准输出 (, “正在建立文件夹：” ＋ 对应文件夹 ＋ #换行符)<br />         创建目录 (对应文件夹)<br />         递归遍历文件夹及文件 (父文件夹 ＋ “\” ＋ 子文件夹)<br />     .如果真结束<br />     子文件夹 ＝ 寻找文件 (, #子目录)<br /> <br /> .判断循环尾 ()

上面的代码是将源文件夹的目录文件结构复制到目标文件夹内的。为什么会把文件夹当成文件？

afu45

  

调试输出 (文件_是否为目录 (“C:\test\1.txt”))
调试输出 (文件_是否为目录 (“C:\test\”))
调试输出 (目录_是否存在 (“C:\test\1.txt”))
调试输出 (目录_是否存在 (“C:\test\”))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> 调试输出 (文件_是否为目录 (“C:\test\1.txt”))<br /> 调试输出 (文件_是否为目录 (“C:\test\”))<br /> 调试输出 (目录_是否存在 (“C:\test\1.txt”))<br /> 调试输出 (目录_是否存在 (“C:\test\”))

导出函数

谁能帮我修改一下，达到预期目的？

阳光适若舒

感谢分享 太实用