关于for与findstr查找并删除空文件夹的问题 - 中国DOS联盟论坛

声明: 1,2楼代码皆运行于XP sp2环境下.

因工作需要,我每天都要在工作目录下建立好多以当天日期命名的目录(各子目录都有可能建立),但有时难免建立了目录之后,没有往里面装文件.时间一长就会积累了很多的空目录.人手删除是没什么可能的了.所以想用批处理来完成,但遇到了一个问题:

程序对于含有特殊字符或者空格的目录没办法正确处理.

在些请教论坛上一些for和findstr的高手,看有没什么好的办法.


::***/// 设置目标目录 \\\***
set keyword1=m:\test\
::***/// 设置需要删除的文件夹名字(因有些文件夹不想删) \\\***
set keyword2=2006-12-

::***/// 创建临时文件与目录 \\\***
cd.>nuldir.txt
cd.>nuldir2.txt
md 目录回收
::***/// 列举当前目录下所有目录名字,并输出到nuldir.txt \\\***
for /f "delims=" %%i in ('dir /ad /b /s') do (dir /a /b "%%i"|findstr .>nul||echo %%i>>nuldir.txt)
::***/// 在nuldir.txt排除指定条件的目录并写到nuldir2.txt \\\***
for /f "delims=%keyword1% tokens=1*" %%i in (nuldir.txt) do echo %%j>>nuldir2.txt
type nuldir2.txt | findstr /i "%keyword2%">nuldir.txt
::***/// 在"目录回收"下建立新目录并删除原目录 \\\***
for /f %%i in (nuldir2.txt) do md 目录回收\%%i && del /q %%i
::***/// 删除临时文件 \\\***
del /q nuldir.txt & rd /q nuldir2.txt

[ Last edited by voiL on 2006-12-26 at 04:33 AM ]

以下脚本也是我日常工作的批处理.

为了工作方便,我把它做成可以直接把文件拖进行然后选择目标目录就可以了.

但也遇到一个问题,如果文件名有特殊字符就不能正确处理了.

在此也请教一下高手们,看有什么好的解决方法没有.

看了论坛上一些关于防空字符和特殊字符过滤的文章,也无济于事.

毕竟我起步晚,对编程也不懂,只懂得平时玩玩一些简单的批处理.

现在才后悔莫及.


@echo off
color 17
mode con lines=25 cols=80
set targetdir1=n:\政府网站
set targetdir2=n:\乡镇网站

:input
cls & echo.
echo  =======================本程序只可正常运行于Windows XP下=======================
echo.
echo                    ┏━━━━━━请选择目录━━━━━━┓
echo                    ┃                                  ┃
echo                    ┃  政府网站       乡镇网站   ┃
echo                    ┃                                  ┃
echo                    ┃  阅读说明         退出程序 ┃
echo                    ┃                                  ┃
echo                    ┗━━━━━━━━━━━━━━━━━┛
echo.
echo  ==============================================================================
echo.
set /p choose= 请输入位速代号：
for %%i in (1 2 h H x X) do if "%choose%" == "%%i" goto check
echo  & cls
echo.
echo.
echo                      ┏━━━━━━ 注  意 ━━━━━━┓
echo                      ┃                                ┃
echo                      ┃ 你输入参数不正确! 请重新输入!  ┃
echo                      ┃                                ┃
echo                      ┗━━━━━━━━━━━━━━━━┛
ping  1.1 -n 1 -w 2000>nul
goto input

:check
for %%i in (%*) do if "!%%i" == "!" goto nofiles
if "%choose%" == "1" goto gov
if "%choose%" == "2" goto town
if "%choose%" == "x" exit
if "%choose%" == "X" exit
if "%choose%" == "h" goto help
if "%choose%" == "H" goto help
echo  & cls
echo.
echo.
echo                      ┏━━━━━━ 注  意 ━━━━━━┓
echo                      ┃                                ┃
echo                      ┃   程序出现意外，3秒后退出...   ┃
echo                      ┃                                ┃
echo                      ┗━━━━━━━━━━━━━━━━┛
goto end

:gov
cls
if not exist %targetdir1%\nul goto nodir
dir %1\. >nul 2>nul && goto nofolder
echo.
echo.
echo                ┏━━━━━━━━━━━━━━━━━━━━━━━┓
echo                ┃                                              ┃
echo                ┃正在复制文件到 〖政府网站〗 目录下，请稍候... ┃
echo                ┃                                              ┃
echo                ┗━━━━━━━━━━━━━━━━━━━━━━━┛
copy /y %1 %targetdir1% 2>nul 1>nul
if %2! == ! goto nextgov
Shift
goto gov

:nextgov
cls
echo.
echo.
echo              ┏━━━━━━━━━━━━━━━━━━━━━━━━━┓
echo              ┃                                                  ┃
echo              ┃文件已成功复制到 〖政府网站〗 目录下，3秒后退出...┃
echo              ┃                                                  ┃
echo              ┗━━━━━━━━━━━━━━━━━━━━━━━━━┛
goto end

:town
cls
if not exist %targetdir1%\nul goto nodir
dir %1\. >nul 2>nul && goto nofolder
echo.
echo.
echo                ┏━━━━━━━━━━━━━━━━━━━━━━━┓
echo                ┃                                              ┃
echo                ┃正在复制文件到 〖乡镇网站〗 目录下，请稍候... ┃
echo                ┃                                              ┃
echo                ┗━━━━━━━━━━━━━━━━━━━━━━━┛
copy /y %1 %targetdir2% 2>nul 1>nul
if %2! == ! goto nexttown
Shift
goto town

:nexttown
cls
echo.
echo.
echo              ┏━━━━━━━━━━━━━━━━━━━━━━━━━┓
echo              ┃                                                  ┃
echo              ┃文件已成功复制到 〖乡镇网站〗 目录下，3秒后退出...┃
echo              ┃                                                  ┃
echo              ┗━━━━━━━━━━━━━━━━━━━━━━━━━┛
goto end

.................................

:end
ping 1.1 -n 1 -w 3000 >nul 2>nul
exit

[ Last edited by voiL on 2006-12-26 at 11:50 PM ]

　　只考虑删除当前目录下及其所有子目录的所有空文件夹，可以考虑先把所有的文件夹 dir 出来之后，再利用 rd 不能删除非空目录的特点来删除空文件夹。比如如下演示代码：
　　———————————————————————————————————————
　　这个方案有考虑不周的地方，请看5楼的描述。


@echo off
:: 请创建测试目录来测试，否则不会有效果；请勿在工作目录下测试，否则后悔莫及。
for /f "delims=" %%i in ('dir /ad /b /s') do rd "%%i" 2>nul

　　至于只删除当前目录下及其子目录中以日期命名的空文件夹，稍后再讨论，吃饭去了先~~

[ Last edited by namejm on 2006-12-25 at 06:43 PM ]

举个例子，什么特殊字符，
参数加""试试

　　3楼的代码还有欠考虑的地方，因为：如果某个深层目录下只有空文件夹的话，删掉最深层的那个空文件夹之后，它上面的那个目录又变为空了，而在这之前，上层的目录已经检测过，已经不可能再删，从而导致空目录删除不彻底的弊病。解决办法是：从最深层的子目录起开始删除。这就需要对目录按照层深来排序，呵呵，很有挑战性。多谢 ccwan 提醒。

　　以下代码能够删除当前目录下的所有空文件夹(包括子目录中的)而不会出现5楼所说的遗漏的现象，兼容含有特殊字符的路径，8楼的问题也得到了解决。请各位新建目录来测试，以免造成不必要的损失：


@echo off
:: 思路：列举所有目录(包括子目录)路径，然后，删除第一个路径最后一节上的文件夹；
:: 　　如果能删除这个文件夹，则删除上一层文件夹；如果还能删除，则继续上一步……
:: 　　直到当前目录为止；如果其中某一节不能删除，立即跳出，开始删除下一条路径中
:: 　　最后一节上的文件夹……如此反复。

for /f "delims=" %%i in ('dir /ad /b /s') do call :rd_dir_empty "%%i"
goto :eof

rem ======= 删除空目录 =========
:rd_dir_empty
rd %1 2>nul||goto :eof
set dir_route=%1
for /f "delims=" %%i in (%dir_route%) do (
    set dir_route="%%~dpi"
    for /f "delims=" %%j in ('dir /ad /b "%%~dpi"')do rd "%%~dpi%%j" 2>nul||goto :eof
)
:: 把路径最后的\去掉，以便set route_deepest="%%~dpi"能取到上一层路径
if "%dir_route:~-2,1%"=="\" set dir_route="%dir_route:~1,-2%"
if /i not "%cd%"==%dir_route% call :rd_dir_empty %dir_route%
goto :eof

[ Last edited by namejm on 2006-12-26 at 01:23 PM ]

呵呵，等的就是他。

namejm版主的代码在我这里还存在点问题：

运行前目录：

E:\test\6
E:\test\123
E:\test\voil
E:\test\a\adf
E:\test\2008034
E:\test\a\tga\adsf\adffwqa
E:\test\s h\s wer\1122
E:\test\s h\s132\dfads
E:\test\s h\s wer\新建文件夹
E:\test\t\tsad

运行后剩余目录：

E:\test\s h\s wer\1122
E:\test\s h\s wer\新建文件夹
E:\test\t\tsad

　　6楼的代码已经修正，请测试。

[ Last edited by namejm on 2006-12-25 at 06:38 PM ]

哈哈，多次试验没有问题。

namejm版主的代码果然强悍,检测了十多次,每一次的速度都很快.

清除10多个到30多个空目录,基本都是一闪就搞定了...

至于删除日期文件夹方面就留给我自己去研究研究吧(如果版主有妙方的话我也是不会抗拒滴:))...

加分加分...除此以外,想不到更好的方法报答了...呵呵...

不知2楼的代码版主有没好的解决方法???

特殊字符例如: ()<>^& 等等...

里面关于检测和移动的代码,我是参考以下帖子第12楼kcdsw兄的.

怎样从外部获得多个变量来支持多文件？已解决

还有这个帖子.

无奈何签名代码略析

直接用kcdsw兄的代码确实可以移动一些带特殊符号的文件,但我修改成2楼的代码就不行了...

[ Last edited by voiL on 2006-12-26 at 10:31 PM ]

　　请把那些要删除的日期文件夹的名字列举一些出来，然后把规律说明一下，应该不难的。

　　2楼的代码是想实现文件的复制吧？具体想达到什么样的目的，请用文字说明，光看代码是很容易误导人的。

呵呵...谢谢namejm版主的热心帮助...

日期的命名方式都是统一的...

YYYY-MM-DD

___________________________________________

2楼的目的也只是把数个文件拖到批处理上,然后选择目的目录,之后批处理自动把文件复制到目标目录...

这个在2楼的代码中就已经可以达到了...

问题只是在于把数个文件拖到批处理上之后,批处理怎么去处理文件名里的特殊符号...

之前我试过一些带【()^&+】等字符的文件无法正确复制...

所以就到论坛上找,找是找到了,但经自己修改后又不行了...

不知问题是出在哪里...

我把它精简成如下这样又可以处理一些例如: () 等字符了,但遇到 1+1.txt 这样的名字又出错了.可问题也在于我不想要精简的,因为我的文件要备份到好几个目录的,如果做几个批处理,每个批处理只指向一个目标目录的话,又不太实际.


@echo off
color 17
mode con lines=25 cols=80
set targetdir1=n:\政府网站

:gov
cls
if not exist %targetdir1%\nul goto nodir
dir %1\. >nul 2>nul && goto nofolder
echo.
echo.
echo                ┏━━━━━━━━━━━━━━━━━━━━━━━┓
echo                ┃                                              ┃
echo                ┃正在复制文件到 〖政府网站〗 目录下，请稍候... ┃
echo                ┃                                              ┃
echo                ┗━━━━━━━━━━━━━━━━━━━━━━━┛
copy /y %1 %targetdir1% 2>nul 1>nul
if %2! == ! goto nextgov
Shift
goto gov

:nextgov
cls
echo.
echo.
echo              ┏━━━━━━━━━━━━━━━━━━━━━━━━━┓
echo              ┃                                                  ┃
echo              ┃文件已成功复制到 〖政府网站〗 目录下，3秒后退出...┃
echo              ┃                                                  ┃
echo              ┗━━━━━━━━━━━━━━━━━━━━━━━━━┛
goto end

:end
ping 1.1 -n 1 -w 3000 >nul 2>nul
exit

程序必须附带以下几个检测(不知是否就是因为有以下代码才导致程序不能正确处理特殊字符的?)

::来检测是否有源文件,没有则跳转到nofiles标签
for %%i in (%*) do if "!%%i" == "!" goto nofiles

::检测目标目录是否存在,不存在则跳转到nodir标签
if not exist %targetdir1%\nul goto nodir

::检测拖进来的文件之中是否有目录,如有则跳转到nofolder标签
dir %1\. >nul 2>nul && goto nofolder

[ Last edited by voiL on 2006-12-27 at 12:02 AM ]

　　要处理含特殊字符的文件名，必须把路径用引号括起来；^会被认为是转义字符，不太好处理，建议文件名中不要包含它。在使用 set /p 语句的情况下，把文件拉到CMD窗口来的时候，CMD解释器会自动给带空格的路径加上引号，其余的情况不会自动加，所以，当用 set /p 来接收输入之后，要先去掉可能存在的引号，然后再统一加上引号，就可以保证能处理含特殊字符文件名了，比如下面的演示代码：


@echo off
:begin
cls
set input=
set /p input=请输入测试文件名：
set "input=%input:"=%"
echo 你输入的文件名是："%input%"
pause
goto begin

　　至于查找日期格式的文件夹名，可以用 findstr 的正则表达式，请看如下演示代码(检测不是很严格)：


@echo off
for /f "delims=" %%i in ('dir /ad /b^|findstr /b /e "--"') do echo "%%i"
pause

　　9527 同志太不厚道，跑到无忧光盘启动论坛去发帖子，却没在这里把他的好代码放出来。现在代他发一个更简洁的代码：


for /f "tokens=*" %a in ('dir /b /ad /s 目录路径^|sort /r') do rd "%a" /q 2>nul

第1楼　voiL	发表于 2006-12-26 00:05
中级用户　发帖 189　积分 384
[问题]关于for与findstr查找并删除空文件夹的问题声明: 1,2楼代码皆运行于XP sp2环境下. 因工作需要,我每天都要在工作目录下建立好多以当天日期命名的目录(各子目录都有可能建立),但有时难免建立了目录之后,没有往里面装文件.时间一长就会积累了很多的空目录.人手删除是没什么可能的了.所以想用批处理来完成,但遇到了一个问题: 程序对于含有特殊字符或者空格的目录没办法正确处理. 在些请教论坛上一些for和findstr的高手,看有没什么好的办法. ::*/// 设置目标目录 \\\* set keyword1=m:\test\ ::*/// 设置需要删除的文件夹名字(因有些文件夹不想删) \\\* set keyword2=2006-12- ::*/// 创建临时文件与目录 \\\* cd.>nuldir.txt cd.>nuldir2.txt md 目录回收 ::*/// 列举当前目录下所有目录名字,并输出到nuldir.txt \\\* for /f "delims=" %%i in ('dir /ad /b /s') do (dir /a /b "%%i"\|findstr .>nul\|\|echo %%i>>nuldir.txt) ::*/// 在nuldir.txt排除指定条件的目录并写到nuldir2.txt \\\* for /f "delims=%keyword1% tokens=1" %%i in (nuldir.txt) do echo %%j>>nuldir2.txt type nuldir2.txt \| findstr /i "%keyword2%">nuldir.txt ::/// 在"目录回收"下建立新目录并删除原目录 \\\* for /f %%i in (nuldir2.txt) do md 目录回收\%%i && del /q %%i ::*/// 删除临时文件 \\\* del /q nuldir.txt & rd /q nuldir2.txt [ Last edited by voiL on 2006-12-26 at 04:33 AM ]

第2楼　voiL	发表于 2006-12-26 00:06
中级用户　发帖 189　积分 384
以下脚本也是我日常工作的批处理. 为了工作方便,我把它做成可以直接把文件拖进行然后选择目标目录就可以了. 但也遇到一个问题,如果文件名有特殊字符就不能正确处理了. 在此也请教一下高手们,看有什么好的解决方法没有. 看了论坛上一些关于防空字符和特殊字符过滤的文章,也无济于事. 毕竟我起步晚,对编程也不懂,只懂得平时玩玩一些简单的批处理. 现在才后悔莫及. @echo off color 17 mode con lines=25 cols=80 set targetdir1=n:\政府网站 set targetdir2=n:\乡镇网站 :input cls & echo. echo =======================本程序只可正常运行于Windows XP下======================= echo. echo ┏━━━━━━请选择目录━━━━━━┓ echo ┃ ┃ echo ┃ 政府网站乡镇网站 ┃ echo ┃ ┃ echo ┃ 阅读说明退出程序 ┃ echo ┃ ┃ echo ┗━━━━━━━━━━━━━━━━━┛ echo. echo ============================================================================== echo. set /p choose= 请输入位速代号： for %%i in (1 2 h H x X) do if "%choose%" == "%%i" goto check echo & cls echo. echo. echo ┏━━━━━━ 注意 ━━━━━━┓ echo ┃ ┃ echo ┃ 你输入参数不正确! 请重新输入! ┃ echo ┃ ┃ echo ┗━━━━━━━━━━━━━━━━┛ ping 1.1 -n 1 -w 2000>nul goto input :check for %%i in (%) do if "!%%i" == "!" goto nofiles if "%choose%" == "1" goto gov if "%choose%" == "2" goto town if "%choose%" == "x" exit if "%choose%" == "X" exit if "%choose%" == "h" goto help if "%choose%" == "H" goto help echo & cls echo. echo. echo ┏━━━━━━ 注意 ━━━━━━┓ echo ┃ ┃ echo ┃ 程序出现意外，3秒后退出... ┃ echo ┃ ┃ echo ┗━━━━━━━━━━━━━━━━┛ goto end :gov cls if not exist %targetdir1%\nul goto nodir dir %1\. >nul 2>nul && goto nofolder echo. echo. echo ┏━━━━━━━━━━━━━━━━━━━━━━━┓ echo ┃ ┃ echo ┃正在复制文件到〖政府网站〗目录下，请稍候... ┃ echo ┃ ┃ echo ┗━━━━━━━━━━━━━━━━━━━━━━━┛ copy /y %1 %targetdir1% 2>nul 1>nul if %2! == ! goto nextgov Shift goto gov :nextgov cls echo. echo. echo ┏━━━━━━━━━━━━━━━━━━━━━━━━━┓ echo ┃ ┃ echo ┃文件已成功复制到〖政府网站〗目录下，3秒后退出...┃ echo ┃ ┃ echo ┗━━━━━━━━━━━━━━━━━━━━━━━━━┛ goto end :town cls if not exist %targetdir1%\nul goto nodir dir %1\. >nul 2>nul && goto nofolder echo. echo. echo ┏━━━━━━━━━━━━━━━━━━━━━━━┓ echo ┃ ┃ echo ┃正在复制文件到〖乡镇网站〗目录下，请稍候... ┃ echo ┃ ┃ echo ┗━━━━━━━━━━━━━━━━━━━━━━━┛ copy /y %1 %targetdir2% 2>nul 1>nul if %2! == ! goto nexttown Shift goto town :nexttown cls echo. echo. echo ┏━━━━━━━━━━━━━━━━━━━━━━━━━┓ echo ┃ ┃ echo ┃文件已成功复制到〖乡镇网站〗目录下，3秒后退出...┃ echo ┃ ┃ echo ┗━━━━━━━━━━━━━━━━━━━━━━━━━┛ goto end ................................. :end ping 1.1 -n 1 -w 3000 >nul 2>nul exit [ Last edited by voiL on 2006-12-26 at 11:50 PM* ]

第3楼　namejm	发表于 2006-12-26 00:33
荣誉版主　发帖 1,737　积分 5,226　来自成都
只考虑删除当前目录下及其所有子目录的所有空文件夹，可以考虑先把所有的文件夹 dir 出来之后，再利用 rd 不能删除非空目录的特点来删除空文件夹。比如如下演示代码：　　——————————————————————————————————————— 　　这个方案有考虑不周的地方，请看5楼的描述。 @echo off :: 请创建测试目录来测试，否则不会有效果；请勿在工作目录下测试，否则后悔莫及。 for /f "delims=" %%i in ('dir /ad /b /s') do rd "%%i" 2>nul 　　至于只删除当前目录下及其子目录中以日期命名的空文件夹，稍后再讨论，吃饭去了先~~ [ Last edited by namejm on 2006-12-25 at 06:43 PM ]

第4楼　a9319751	发表于 2006-12-26 00:37
中级用户　发帖 170　积分 439
举个例子，什么特殊字符，参数加""试试

第5楼　namejm	发表于 2006-12-26 01:42
荣誉版主　发帖 1,737　积分 5,226　来自成都
3楼的代码还有欠考虑的地方，因为：如果某个深层目录下只有空文件夹的话，删掉最深层的那个空文件夹之后，它上面的那个目录又变为空了，而在这之前，上层的目录已经检测过，已经不可能再删，从而导致空目录删除不彻底的弊病。解决办法是：从最深层的子目录起开始删除。这就需要对目录按照层深来排序，呵呵，很有挑战性。多谢 ccwan 提醒。

第6楼　namejm	发表于 2006-12-26 04:16
荣誉版主　发帖 1,737　积分 5,226　来自成都
以下代码能够删除当前目录下的所有空文件夹(包括子目录中的)而不会出现5楼所说的遗漏的现象，兼容含有特殊字符的路径，8楼的问题也得到了解决。请各位新建目录来测试，以免造成不必要的损失： @echo off :: 思路：列举所有目录(包括子目录)路径，然后，删除第一个路径最后一节上的文件夹； :: 　　如果能删除这个文件夹，则删除上一层文件夹；如果还能删除，则继续上一步…… :: 　　直到当前目录为止；如果其中某一节不能删除，立即跳出，开始删除下一条路径中 :: 　　最后一节上的文件夹……如此反复。 for /f "delims=" %%i in ('dir /ad /b /s') do call :rd_dir_empty "%%i" goto :eof rem ======= 删除空目录 ========= :rd_dir_empty rd %1 2>nul\|\|goto :eof set dir_route=%1 for /f "delims=" %%i in (%dir_route%) do ( set dir_route="%%~dpi" for /f "delims=" %%j in ('dir /ad /b "%%~dpi"')do rd "%%~dpi%%j" 2>nul\|\|goto :eof ) :: 把路径最后的\去掉，以便set route_deepest="%%~dpi"能取到上一层路径 if "%dir_route:~-2,1%"=="\" set dir_route="%dir_route:~1,-2%" if /i not "%cd%"==%dir_route% call :rd_dir_empty %dir_route% goto :eof [ Last edited by namejm on 2006-12-26 at 01:23 PM ]

第7楼　ccwan	发表于 2006-12-26 04:18
金牌会员　发帖 1,160　积分 2,725　来自河北廊坊
呵呵，等的就是他。

第8楼　voiL	发表于 2006-12-26 05:52
中级用户　发帖 189　积分 384
namejm版主的代码在我这里还存在点问题：运行前目录： E:\test\6 E:\test\123 E:\test\voil E:\test\a\adf E:\test\2008034 E:\test\a\tga\adsf\adffwqa E:\test\s h\s wer\1122 E:\test\s h\s132\dfads E:\test\s h\s wer\新建文件夹 E:\test\t\tsad 运行后剩余目录： E:\test\s h\s wer\1122 E:\test\s h\s wer\新建文件夹 E:\test\t\tsad

第9楼　namejm	发表于 2006-12-26 06:22
荣誉版主　发帖 1,737　积分 5,226　来自成都
6楼的代码已经修正，请测试。 [ Last edited by namejm on 2006-12-25 at 06:38 PM ]

第10楼　ccwan	发表于 2006-12-26 07:44
金牌会员　发帖 1,160　积分 2,725　来自河北廊坊
哈哈，多次试验没有问题。

第11楼　voiL	发表于 2006-12-26 22:17
中级用户　发帖 189　积分 384
namejm版主的代码果然强悍,检测了十多次,每一次的速度都很快. 清除10多个到30多个空目录,基本都是一闪就搞定了... 至于删除日期文件夹方面就留给我自己去研究研究吧(如果版主有妙方的话我也是不会抗拒滴:))... 加分加分...除此以外,想不到更好的方法报答了...呵呵... 不知2楼的代码版主有没好的解决方法??? 特殊字符例如: ()<>^& 等等... 里面关于检测和移动的代码,我是参考以下帖子第12楼kcdsw兄的. 怎样从外部获得多个变量来支持多文件？已解决还有这个帖子. 无奈何签名代码略析直接用kcdsw兄的代码确实可以移动一些带特殊符号的文件,但我修改成2楼的代码就不行了... [ Last edited by voiL on 2006-12-26 at 10:31 PM ]

第12楼　namejm	发表于 2006-12-26 23:05
荣誉版主　发帖 1,737　积分 5,226　来自成都
请把那些要删除的日期文件夹的名字列举一些出来，然后把规律说明一下，应该不难的。　　2楼的代码是想实现文件的复制吧？具体想达到什么样的目的，请用文字说明，光看代码是很容易误导人的。

第13楼　voiL	发表于 2006-12-26 23:49
中级用户　发帖 189　积分 384
呵呵...谢谢namejm版主的热心帮助... 日期的命名方式都是统一的... YYYY-MM-DD ___________________________________________ 2楼的目的也只是把数个文件拖到批处理上,然后选择目的目录,之后批处理自动把文件复制到目标目录... 这个在2楼的代码中就已经可以达到了... 问题只是在于把数个文件拖到批处理上之后,批处理怎么去处理文件名里的特殊符号... 之前我试过一些带【()^&+】等字符的文件无法正确复制... 所以就到论坛上找,找是找到了,但经自己修改后又不行了... 不知问题是出在哪里... 我把它精简成如下这样又可以处理一些例如: () 等字符了,但遇到 1+1.txt 这样的名字又出错了.可问题也在于我不想要精简的,因为我的文件要备份到好几个目录的,如果做几个批处理,每个批处理只指向一个目标目录的话,又不太实际. @echo off color 17 mode con lines=25 cols=80 set targetdir1=n:\政府网站 :gov cls if not exist %targetdir1%\nul goto nodir dir %1\. >nul 2>nul && goto nofolder echo. echo. echo ┏━━━━━━━━━━━━━━━━━━━━━━━┓ echo ┃ ┃ echo ┃正在复制文件到〖政府网站〗目录下，请稍候... ┃ echo ┃ ┃ echo ┗━━━━━━━━━━━━━━━━━━━━━━━┛ copy /y %1 %targetdir1% 2>nul 1>nul if %2! == ! goto nextgov Shift goto gov :nextgov cls echo. echo. echo ┏━━━━━━━━━━━━━━━━━━━━━━━━━┓ echo ┃ ┃ echo ┃文件已成功复制到〖政府网站〗目录下，3秒后退出...┃ echo ┃ ┃ echo ┗━━━━━━━━━━━━━━━━━━━━━━━━━┛ goto end :end ping 1.1 -n 1 -w 3000 >nul 2>nul exit 程序必须附带以下几个检测(不知是否就是因为有以下代码才导致程序不能正确处理特殊字符的?) ::来检测是否有源文件,没有则跳转到nofiles标签 for %%i in (%) do if "!%%i" == "!" goto nofiles ::检测目标目录是否存在,不存在则跳转到nodir标签 if not exist %targetdir1%\nul goto nodir ::检测拖进来的文件之中是否有目录,如有则跳转到nofolder标签 dir %1\. >nul 2>nul && goto nofolder [ Last edited by voiL on 2006-12-27 at 12:02 AM* ]

第14楼　namejm	发表于 2006-12-27 00:27
荣誉版主　发帖 1,737　积分 5,226　来自成都
要处理含特殊字符的文件名，必须把路径用引号括起来；^会被认为是转义字符，不太好处理，建议文件名中不要包含它。在使用 set /p 语句的情况下，把文件拉到CMD窗口来的时候，CMD解释器会自动给带空格的路径加上引号，其余的情况不会自动加，所以，当用 set /p 来接收输入之后，要先去掉可能存在的引号，然后再统一加上引号，就可以保证能处理含特殊字符文件名了，比如下面的演示代码： @echo off :begin cls set input= set /p input=请输入测试文件名： set "input=%input:"=%" echo 你输入的文件名是："%input%" pause goto begin 　　至于查找日期格式的文件夹名，可以用 findstr 的正则表达式，请看如下演示代码(检测不是很严格)： @echo off for /f "delims=" %%i in ('dir /ad /b^\|findstr /b /e "--"') do echo "%%i" pause

第15楼　namejm	发表于 2006-12-30 05:31
荣誉版主　发帖 1,737　积分 5,226　来自成都
9527 同志太不厚道，跑到无忧光盘启动论坛去发帖子，却没在这里把他的好代码放出来。现在代他发一个更简洁的代码： for /f "tokens=*" %a in ('dir /b /ad /s 目录路径^\|sort /r') do rd "%a" /q 2>nul