文件整理 - 中国DOS联盟论坛 - 中国DOS联盟之联合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,...,
电子书类的
图片类的
绿色软件类的
压缩包
网页类的
能具有文件分析能力,对安装软件所在目录不整理

第1楼　plp626	发表于 2008-03-05 23:00
银牌会员　发帖 1,020　积分 2,278
文件整理 @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 ]

第2楼　plp626	发表于 2008-03-06 23:56
银牌会员　发帖 1,020　积分 2,278
我不是雷锋,哪怕是批评,我得进步,不然就白发了. 谁测试我给谁加分.

第3楼　plp626	发表于 2008-03-07 00:49
银牌会员　发帖 1,020　积分 2,278
谁测试然后发表评论我给谁加8分

第4楼　lxmxn	发表于 2008-03-07 00:49
版主　发帖 4,938　积分 11,386
写得太高深了，看不懂。^_^

第5楼　plp626	发表于 2008-03-07 00:50
银牌会员　发帖 1,020　积分 2,278
不会吧,版主,有您看不懂的,讽刺我呢

第6楼　plp626	发表于 2008-03-07 00:55
银牌会员　发帖 1,020　积分 2,278
忘了提醒大家,可千万不要在C盘根目录运行上面任何一个代码

第7楼　abcd	发表于 2008-03-07 00:59
银牌会员　发帖 739　积分 1,436
没看懂整理什么

第8楼　plp626	发表于 2008-03-07 01:00
银牌会员　发帖 1,020　积分 2,278
你没测试,我补给你加分了

第9楼　chenall	发表于 2008-03-07 01:13
银牌会员　发帖 469　积分 1,276　来自福建泉州
看了下，是按文件扩展名进行分类整理。只是代码看起来好像太乱了。有点晕晕的 :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也就是在根目录下

第10楼　HAT	发表于 2008-03-07 10:41
版主　发帖 5,017　积分 9,023
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:

第11楼　HAT	发表于 2008-03-07 10:43
版主　发帖 5,017　积分 9,023
Originally posted by plp626 at 2008-3-7 12:49 AM: 谁测试然后发表评论我给谁加8分我可以对这句话评论一下吗？(不知道能不能被加分，呵呵) 大家来CNDOS是为了学习知识而不是增加积分^_^

第12楼　plp626	发表于 2008-03-07 11:58
银牌会员　发帖 1,020　积分 2,278
我说话算数,给你加了(尽管你没测试), 我当然也是来学知识的,可学知识就是要进步的,没有交流,没有人批评进步就困难,

第13楼　lslcxlsl	发表于 2008-03-07 12:58
初级用户　发帖 24　积分 52
测试后系统默认有都可以识别的文件都分类了.可是有一个php的文件没有分类不知道为什么? 第二段代码没有测试,因为没有产生tree文件夹. 如果分类的名称能是中文的那就比较好了 [ Last edited by lslcxlsl on 2008-3-7 at 02:36 PM ]

第14楼　plp626	发表于 2008-03-07 18:50
银牌会员　发帖 1,020　积分 2,278
lslcxlsl兄,是plp文件对吧,你有没有敲错? 我今天把分都加完了,下次我给你补上

第15楼　plp626	发表于 2008-03-10 11:51
银牌会员　发帖 1,020　积分 2,278
提议一个文件整理批处理: 按文件属性整理比如: 音频类的视频类的文本文件 ---记事本的, word , ppt, pdf,... 编程类的 c,java,..., 电子书类的图片类的绿色软件类的压缩包网页类的能具有文件分析能力,对安装软件所在目录不整理