`
-- 在d盘下,向目录中复制文件readme.txt, 最多达到目录深度 为5 ,如何?
--
-- 在d盘下,向目录中复制文件readme.txt, 最多达到目录深度 为5 ,如何?
--
联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!
| 评分人 | 分数 | 时间 |
|---|---|---|
| fastslz | +2 | 2007-12-13 18:45 |
@echo off&SetLocal EnableDelayedExpansion
echo Now is processing ... please wait for a few minutes ...
for /f "delims=" %%a in ('dir /s/b/ad D:\') do (
call :getdirs "%%a"
if !maxdir! lss 5 >>maxdirofd.txt echo %%a
set maxdir=0
)
exit
:getdirs
for /f "delims=\ tokens=1*" %%a in (%1) do (
if "%%b"=="" (goto :eof) else (
set /a maxdir+=1
call :getdirs "%%b"
)
)
| 评分人 | 分数 | 时间 |
|---|---|---|
| ooaf | +2 | 2007-12-14 14:56 |