使用批处理建立分类目录

2009年3月30日星期一


首先建立批处理文件,内容如下:
---------------------------------------------------
set num=0
goto readtxt
:readtxt:: 读取文本内容,读取过的用more命令过滤掉
for /f "tokens=1*" %%i in ('more +%num% 分类列表.txt') do (
set /a num+=1
if "%%i"=="1" (
call :build_top %%j
) else (
call :build_sub "%%i %%j")
)
goto :eof
:build_top
:: 建立父文件夹
if %num% gtr 1 popd
if exist %1 rd /q /s %1
md %1 && pushd %1
goto :eof

:build_sub:: 建立子文件夹
for /f "tokens=1*" %%x in (%1) do (
if "%%x"=="1" (
call :build_top %%y
goto readtxt
) else (
if exist %%x rd /q /s %%x
md %%x
if not "%%y"=="" call :build_sub "%%y")
)
goto :eof
-----------------------------------------------------------
同目录下建立名为"分类列表.txt"的目录结构文本格式如下也可以根据您自己的喜好对目录进行分类:

1 网络软件
主页浏览 浏览辅助 离线浏览 书签工具 拨号计时 邮件检测 邮件处理 主页制作 网页辅助 网站推广 FTP工具 下载工具 网络共享 网络加速 搜索引擎 远程监控 新闻阅读 IP工具 服务器区 网络监测 网络辅助 文件共享 Telnet类 邮件群发 信息发布
1 系统工具
系统增强 系统设置 系统备份 桌面工具 剪贴工具 开关定时 CPU相关 内存工具 磁盘工具 数据备份 卸载清除 升级补丁 系统测试 系统其它
-----------------------------------------------------------
将两个文件放在同一目录下运行便会按照分类列表中的目录结构进行文件夹的自动创建了,在您需要规划目录方案的时候,这样新建目录是不是非常方便呢?

0 评论: