中国DOS联盟

@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

@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

@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

~~~~~~欢迎测试!~~~~~~

Last edited by plp626 on 2008-5-5 at 04:06 PM ]

我不是雷锋,哪怕是批评,我得进步,不然就白发了.

谁测试我给谁加分.

谁测试然后发表评论我给谁加8分

写得太高深了，看不懂。^_^

不会吧,版主,有您看不懂的,讽刺我呢

忘了提醒大家,可千万不要在C盘根目录运行上面任何一个代码

没看懂整理什么

你没测试,我补给你加分了

看了下，是按文件扩展名进行分类整理。
只是代码看起来好像太乱了。有点晕晕的


: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也就是在根目录下

Originally posted by chenall at 2008-3-7 01:13 AM:
看了下，是按文件扩展名进行分类整理。
只是代码看起来好像太乱了。有点晕晕的


:path
set t=%time::=%
set r=%HOMEDRIVE%\tree
md "%r%" 2>nul
md & ...

Microsoft Windows XP
(C) Copyright 1985-2001 Microsoft Corp.

C:\>echo %HOMEDRIVE%
C:

Originally posted by plp626 at 2008-3-7 12:49 AM:
谁测试然后发表评论我给谁加8分

我可以对这句话评论一下吗？(不知道能不能被加分，呵呵)
大家来CNDOS是为了学习知识而不是增加积分^_^

我说话算数,给你加了(尽管你没测试),

我当然也是来学知识的,可学知识就是要进步的,没有交流,没有人批评进步就困难,

测试后系统默认有都可以识别的文件都分类了.可是有一个php的文件没有分类不知道为什么?

第二段代码没有测试,因为没有产生tree文件夹.

如果分类的名称能是中文的那就比较好了

Last edited by lslcxlsl on 2008-3-7 at 02:36 PM ]

lslcxlsl兄,是plp文件对吧,你有没有敲错?

我今天把分都加完了,下次我给你补上

提议一个文件整理批处理:
按文件属性整理比如:
音频类的
视频类的
文本文件 ---记事本的, word , ppt, pdf,...
编程类的 c,java,...,
电子书类的
图片类的
绿色软件类的
压缩包
网页类的
能具有文件分析能力,对安装软件所在目录不整理