求助！！请留步！！

lixusheng0417 · 发表于 2019-4-8 13:38:21

问题是这样的：
取出指定路径里面的 ”所有的空文件夹“ 并且 把空文件夹的路径取出到列表框内 只取空的文件夹的路径，有内容的不取

KServer · 发表于 2019-4-8 13:38:22

子程序名	返回值类型	公开	备注
NullDir			KServer 返回路径下所有空目录
参数名	类型	参考	可空	数组	备注
FindPath	文本型
IsDir	逻辑型				是否不带子目录,允许子目录为假
Return	文本型

变量名	类型	静态	数组	备注
file	文本型		0
list	文本型		0
IsFile	逻辑型
i	整数型
TMp	文本型

IsFile ＝文件_枚举 (FindPath, “*.*”, file, 假) ＞ 0

如果真 (目录_枚举子目录 (FindPath, list, 假) ≤ 0)

如果真 (IsDir ＝真且 IsFile ＝假)

调试输出 (FindPath, IsFile)

加入成员 (Return, FindPath)

返回 ()

如果真 (IsFile ＝假)

加入成员 (Return, FindPath)

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

TMp ＝ FindPath ＋ “/” ＋ list [i]

NullDir (TMp, IsDir, Return)

计次循环尾 ()
返回 ()

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

lixusheng0417 · 发表于 2019-4-8 13:39:15

不能淹没，顶一个

lixusheng0417 · 发表于 2019-4-8 14:11:13

KServer 发表于 2019-4-8 13:58
[e=3].版本 2
.支持库 spec

大神，怎么把结果导入到列表框里面

lixusheng0417 · 发表于 2019-4-8 14:18:15

KServer 发表于 2019-4-8 13:58
[e=3].版本 2
.支持库 spec

能麻烦您做个.e的源码给我吗？一个按钮一个列表框，点击按钮把取到的空目录都添加到列表框里去

futrueface · 发表于 2019-4-9 14:13:47

空文件夹内的空文件夹怎么处理呢？

lixusheng0417 · 发表于 2019-4-10 11:40:08

futrueface 发表于 2019-4-9 14:13
空文件夹内的空文件夹怎么处理呢？

@echo off&cd /d %~dp0
set fn=搜索空文件夹.bat
if not "%~nx0"=="%fn%" copy %0 "%fn%" /y >nul&start "" "%fn%"&del %0
set msg=正在搜索空目录，请等待。。。
title %fn:~,-4% By 依梦琴瑶 & color 0C
echo 请输入要搜索空目录的目录路径（回车确认）：
set /p "DirPath="
color 0A & cls & title %msg% & echo 即将开始搜索。。。&ping 0 -n "3">nul&cls

cd /d "%DirPath%"
echo 正在搜索空目录，此过程可能耗时间，请耐心等待。。。 & echo,
for /f "delims=" %%a in ('dir /ad /s /b') do (
dir /a-d/s/b "%%~a\*" >nul 2>nul
if errorlevel 1 (
echo 空目录路径："%%~a"
echo "%%~a">>"%~dp0空目录路径日志.txt"
)
)
echo, & echo,
set msg=空目录搜索完成
title %msg% By 依梦琴瑶 & echo %msg%，详细的空目录路径信息已保存至此脚本所在目录的“空目录路径日志.txt”中，按任意键退出。
pause>nul & exit

-----------------------------
新建.txt文档，把后缀名改成.bat，双击

futrueface · 发表于 2019-4-10 17:08:15

lixusheng0417 发表于 2019-4-10 11:40
@echo off&cd /d %~dp0
set fn=搜索空文件夹.bat
if not "%~nx0"=="%fn%" copy %0 "%fn%" /y >nul&star ...

牛逼，这是vbs？

		自动登录	找回密码
密码			注册

[完成] 求助！！请留步！！

最佳答案

点评

评分