精易论坛

标题: 如何删除一个文件夹及其子文件夹下的所有空文件夹？ [打印本页]

作者: hhwxyhh 时间: 2017-3-2 15:09
标题: 如何删除一个文件夹及其子文件夹下的所有空文件夹？
如何删除一个文件夹及其子文件夹下的所有空文件夹？
如：A文件夹下有子文件夹B、C、D、E········等等的，这些子文件夹下又有很多文件夹，里面有些是空白文件夹，怎么把A下的所有空白子文件夹找出并删除掉？求源码，谢谢！

补充内容 (2017-3-2 19:34):
自己解决了，答案在9楼，需要的小伙伴请看看吧！！！！！！！！

作者: 冯古屋 时间: 2017-3-2 15:12
我记得精易模块有目录_枚举和文件_枚举的

作者: 猥琐小胖子 时间: 2017-3-2 15:15
c:\1 这个是路径
运行 (“cmd /c rd /Q /S ” ＋ “c:\1”, 假, 1)

作者: 清华博士 时间: 2017-3-2 15:58

子程序名	返回值类型	公开	备注
_按钮1_被单击

变量名	类型	静态	数组	备注
删除所有文件	文本型		0
计次	整数型

目录_枚举子目录 (“E:\A”, 删除所有文件, 真) ' 删除E:\A里面的文件夹，注明用精易模块

计次循环首 (取数组成员数 (删除所有文件), 计次)

目录_删除 (删除所有文件 [计次])

计次循环尾 ()

作者: hhwxyhh 时间: 2017-3-2 19:18

清华博士发表于 2017-3-2 15:58
[e=1].版本 2

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

浪费时间，答非所问啊，你这只是遍历一级目录！而且删除所有文件夹，还需要遍历？！直接把根文件夹删除即可。

作者: hhwxyhh 时间: 2017-3-2 19:19

冯古屋发表于 2017-3-2 15:12
我记得精易模块有目录_枚举和文件_枚举的

精易模块的只是遍历一级目录，下面N级都不能遍历到

作者: hhwxyhh 时间: 2017-3-2 19:23

猥琐小胖子发表于 2017-3-2 15:15
c:\1 这个是路径
运行 (“cmd /c rd /Q /S ” ＋ “c:\1”, 假, 1)

答非所问啊，你没看明白我的意思，不是全部删除，我需要这样的：先遍历目录及子目录，然后把目录中的空目录删除（里面没有任何文件的那个）。

作者: hhwxyhh 时间: 2017-3-2 19:23

猥琐小胖子发表于 2017-3-2 15:15
c:\1 这个是路径
运行 (“cmd /c rd /Q /S ” ＋ “c:\1”, 假, 1)

答非所问啊，你没看明白我的意思，不是全部删除，我需要这样的：先遍历目录及子目录，然后把目录中的空目录删除（里面没有任何文件的那个）。

作者: hhwxyhh 时间: 2017-3-2 19:32
这才是真正的答案！！！！！！！！！！！！！！！！

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备注
_按钮1_被单击

变量名	类型	静态	数组	备注
数组	文本型		0
计次	整数型

目录_枚举子目录1 (“F:\新建文件夹”, 数组, 真, 真)

计次循环首 (取数组成员数 (数组), 计次)

如果真 (目录_是否为空 (数组 [计次]))

调试输出 (数组 [计次] ＋ “是空的！”)

计次循环尾 ()

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

作者: hhwxyhh 时间: 2017-3-2 19:33
自己解决了，答案在9楼，需要的小伙伴请看看吧！！！！！！！！

欢迎光临精易论坛 (https://125.confly.eu.org/)

Powered by Discuz! X3.4