如何删除一个文件夹及其子文件夹下的所有空文件夹？

hhwxyhh

如何删除一个文件夹及其子文件夹下的所有空文件夹？
如：A文件夹下有子文件夹B、C、D、E········等等的，这些子文件夹下又有很多文件夹，里面有些是空白文件夹，怎么把A下的所有空白子文件夹找出并删除掉？求源码，谢谢！


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

冯古屋

我记得精易模块有目录_枚举和文件_枚举的

猥琐小胖子

c:\1 这个是路径
运行 (“cmd /c rd /Q /S ” ＋ “c:\1”, 假, 1)

清华博士

  

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

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

目录_枚举子目录 (“E:\A”, 删除所有文件, 真)  ' 删除E:\A里面的文件夹，注明用精易模块
计次循环首 (取数组成员数 (删除所有文件), 计次)
目录_删除 (删除所有文件 [计次])
计次循环尾 ()

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 删除所有文件, 文本型, , "0"<br /> .局部变量 计次, 整数型<br /> <br /> 目录_枚举子目录 (“E:\A”, 删除所有文件, 真)  ' 删除E:\A里面的文件夹，注明用精易模块<br /> .计次循环首 (取数组成员数 (删除所有文件), 计次)<br />     目录_删除 (删除所有文件 [计次])<br /> .计次循环尾 ()

hhwxyhh

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

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

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

hhwxyhh

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

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

hhwxyhh

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

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

hhwxyhh

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

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

hhwxyhh

这才是真正的答案！！！！！！！！！！！！！！！！

  

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

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

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

目录_枚举子目录1 (“F:\新建文件夹”, 数组, 真, 真)
计次循环首 (取数组成员数 (数组), 计次)
如果真 (目录_是否为空 (数组 [计次]))
调试输出 (数组 [计次] ＋ “是空的！”)

计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 计次, 整数型<br /> <br /> 目录_枚举子目录1 (“F:\新建文件夹”, 数组, 真, 真)<br /> .计次循环首 (取数组成员数 (数组), 计次)<br />     .如果真 (目录_是否为空 (数组 [计次]))<br />         调试输出 (数组 [计次] ＋ “是空的！”)<br />     .如果真结束<br /> <br /> .计次循环尾 ()

hhwxyhh

自己解决了，答案在9楼，需要的小伙伴请看看吧！！！！！！！！