标题: 文件整理 [打印本页]
作者: plp626 时间: 2008-3-5 23:00 标题: 文件整理
@goto code
from plp626@cn-dos.net
整理当前目录树下的文件(含隐藏文件)
空目录,0字节文件删除,空畸形目录删除.
支持特定文件保护功能.
:code
::按扩展名整理当前目录树下的文件(包括隐藏的)
@echo off
mode con lines=20 cols=30
title 正在分析文件...
if "%cd%"=="%HOMEDRIVE%\" exit
call :path
if "%cd:~-1%"=="\" set cd=%cd:\=%
::设定受保护目录,该目录内的所有文件,子目录将不被整理
set "protect=%cd%\zjw\"
::这定受保护文件...
set "profile=%cd%\move mp3.bat"
for /f "tokens=*" %%a in ('dir/ah/b/s 2^>nul') do attrib -h -s "%%a" >nul 2>nul
for /r %%a in (*) do (
if %%~za==0 del /a/f/q "%%a"
if not "%%a"==%0 if not "%%a"=="%profile%" (
if not "%%~dpa"=="%cd%\%%~xa_file\" if not "%%~dpa"=="%protect%" (
call:m "%%~dpa" "%%~nxa" "%%~na" "%%~xa"
)))
for /f "delims=" %%a in ('dir/ad/s/b^|findstr /e "\."') do rd "%%a.\" 2>nul
::注意只读属性的空目录
for /f "delims=" %%a in ('dir/ar/s/b 2^>nul') do attrib -r "%%a" 2>nul
for /f "tokens=*" %%b in ('dir/ad/b/s^|sort /r') do rd "%%b" 2>nul
pause
goto:eof
rem --------- subprocess ------------
:m
if exist "%~4_file\%~2" (call :rename %*) else set "n="
:m1
move "%~1%~2" "%~4_file\%~3%n%%~4" 2>nul||md "%~4_file" 2>nul&&goto:m1
goto:eof
:rename
set "n=1"
:loop
if exist "%~4_file\%~3_%n%%~4" set/a n+=1&goto loop
set "n=_%n%"&goto:eof
::备份
:path
set t=%time::=%
set r=%HOMEDRIVE%\tree
md %r% 2>nul
md "%r%\%t:~,-3%"
dir /a/b/s>>"%r%\%t:~,-3%\%t%.path"
goto:eof
from plp626@cn-dos.net
整理当前目录树下的文件(含隐藏文件)
空目录,0字节文件删除,空畸形目录删除.
支持特定文件保护功能.
:code
::按扩展名整理当前目录树下的文件(包括隐藏的)
@echo off
mode con lines=20 cols=30
title 正在分析文件...
if "%cd%"=="%HOMEDRIVE%\" exit
call :path
if "%cd:~-1%"=="\" set cd=%cd:\=%
::设定受保护目录,该目录内的所有文件,子目录将不被整理
set "protect=%cd%\zjw\"
::这定受保护文件...
set "profile=%cd%\move mp3.bat"
for /f "tokens=*" %%a in ('dir/ah/b/s 2^>nul') do attrib -h -s "%%a" >nul 2>nul
for /r %%a in (*) do (
if %%~za==0 del /a/f/q "%%a"
if not "%%a"==%0 if not "%%a"=="%profile%" (
if not "%%~dpa"=="%cd%\%%~xa_file\" if not "%%~dpa"=="%protect%" (
call:m "%%~dpa" "%%~nxa" "%%~na" "%%~xa"
)))
for /f "delims=" %%a in ('dir/ad/s/b^|findstr /e "\."') do rd "%%a.\" 2>nul
::注意只读属性的空目录
for /f "delims=" %%a in ('dir/ar/s/b 2^>nul') do attrib -r "%%a" 2>nul
for /f "tokens=*" %%b in ('dir/ad/b/s^|sort /r') do rd "%%b" 2>nul
pause
goto:eof
rem --------- subprocess ------------
:m
if exist "%~4_file\%~2" (call :rename %*) else set "n="
:m1
move "%~1%~2" "%~4_file\%~3%n%%~4" 2>nul||md "%~4_file" 2>nul&&goto:m1
goto:eof
:rename
set "n=1"
:loop
if exist "%~4_file\%~3_%n%%~4" set/a n+=1&goto loop
set "n=_%n%"&goto:eof
::备份
:path
set t=%time::=%
set r=%HOMEDRIVE%\tree
md %r% 2>nul
md "%r%\%t:~,-3%"
dir /a/b/s>>"%r%\%t:~,-3%\%t%.path"
goto:eof
@echo off&setlocal enabledelayedexpansion
::抽取当前目录树下的文件.
for /f "tokens=*" %%a in ('dir/a-h/b/s 2^>nul') do attrib -h -s "%%a" 2>nul
for /r %%a in (*) do (
if exist "%%~nxa" call :re "%%~na" "%%~xa"
move "%%a" "%%~na!n!%%~xa"
)
goto :eof
:re
set "n=1"
:loop
if exist "%~1_%n%%~2" set/a n+=1&goto loop
set "n=_%n%"&goto :eof
::抽取当前目录树下的文件.
for /f "tokens=*" %%a in ('dir/a-h/b/s 2^>nul') do attrib -h -s "%%a" 2>nul
for /r %%a in (*) do (
if exist "%%~nxa" call :re "%%~na" "%%~xa"
move "%%a" "%%~na!n!%%~xa"
)
goto :eof
:re
set "n=1"
:loop
if exist "%~1_%n%%~2" set/a n+=1&goto loop
set "n=_%n%"&goto :eof
@echo off&setlocal enabledelayedexpansion
::抽取当前目录受内歌曲文件到指定路径
set "file=*.mp3 *.wma"
set "drive=%cd%\"
set "U=F:\entertainment\music\"
for /r "%drive%" %%a in (%file%) do (
if exist "!U!%%~nxa" call :re "%%~na" "%%~xa"
move "%%a" "!U!%%~na!n!%%~xa"
)
goto :eof
:re
set "n=1"
:loop
if exist "!U!%~1_%n%%~2" set/a n+=1&goto loop
set "n=_%n%"&goto :eof
~~~~~~欢迎测试!~~~~~~::抽取当前目录受内歌曲文件到指定路径
set "file=*.mp3 *.wma"
set "drive=%cd%\"
set "U=F:\entertainment\music\"
for /r "%drive%" %%a in (%file%) do (
if exist "!U!%%~nxa" call :re "%%~na" "%%~xa"
move "%%a" "!U!%%~na!n!%%~xa"
)
goto :eof
:re
set "n=1"
:loop
if exist "!U!%~1_%n%%~2" set/a n+=1&goto loop
set "n=_%n%"&goto :eof
[ Last edited by plp626 on 2008-5-5 at 04:06 PM ]
作者: plp626 时间: 2008-3-6 23:56
我不是雷锋,哪怕是批评,我得进步,不然就白发了.
谁测试我给谁加分.
作者: plp626 时间: 2008-3-7 00:49
谁测试然后发表评论我给谁加8分
作者: lxmxn 时间: 2008-3-7 00:49
写得太高深了，看不懂。^_^
作者: plp626 时间: 2008-3-7 00:50
不会吧,版主,有您看不懂的,讽刺我呢
作者: plp626 时间: 2008-3-7 00:55
忘了提醒大家,可千万不要在C盘根目录运行上面任何一个代码
作者: abcd 时间: 2008-3-7 00:59
没看懂整理什么
作者: plp626 时间: 2008-3-7 01:00
你没测试,我补给你加分了
作者: chenall 时间: 2008-3-7 01:13
看了下，是按文件扩展名进行分类整理。
只是代码看起来好像太乱了。有点晕晕的
:path
set t=%time::=%
set r=%HOMEDRIVE%\tree
md "%r%" 2>nul
md "%r%\%t:~,-3%"||(pause&exit)
dir /a/b/s>>"%r%\%t:~,-3%\%t%.path"
不知这个HOMEDRIVE从哪来的？
如果没有就相当于\TREE也就是在根目录下
作者: HAT 时间: 2008-3-7 10:41
| Quote: | |
|
Microsoft Windows XP [Version 5.1.2600]
(C) Copyright 1985-2001 Microsoft Corp.
C:\>echo %HOMEDRIVE%
C:
作者: HAT 时间: 2008-3-7 10:43
| Quote: | |
|
我可以对这句话评论一下吗？(不知道能不能被加分，呵呵)
大家来CNDOS是为了学习知识而不是增加积分^_^
作者: plp626 时间: 2008-3-7 11:58
我说话算数,给你加了(尽管你没测试),
我当然也是来学知识的,可学知识就是要进步的,没有交流,没有人批评进步就困难,
作者: lslcxlsl 时间: 2008-3-7 12:58
测试后系统默认有都可以识别的文件都分类了.可是有一个php的文件没有分类不知道为什么?
第二段代码没有测试,因为没有产生tree文件夹.
如果分类的名称能是中文的那就比较好了
[ Last edited by lslcxlsl on 2008-3-7 at 02:36 PM ]
作者: plp626 时间: 2008-3-7 18:50
lslcxlsl兄,是plp文件对吧,你有没有敲错?
我今天把分都加完了,下次我给你补上
作者: plp626 时间: 2008-3-10 11:51
提议一个文件整理批处理:
按文件属性整理比如:
音频类的
视频类的
文本文件 ---记事本的, word , ppt, pdf,...
编程类的 c,java,...,
电子书类的
图片类的
绿色软件类的
压缩包
网页类的
能具有文件分析能力,对安装软件所在目录不整理
作者: 523066680 时间: 2008-3-14 18:30
全是牛逼……我得读书……一个星期上一次网，无缘和你们讨论了.
lxmxn版主说的应该是复杂吧……
[ Last edited by 523066680 on 2008-3-14 at 06:33 PM ]
作者: z640919a 时间: 2008-3-14 21:38
能分类的文件名后都加了_1.