先说一下俺的硬盘使用经历

2004:笔记本40g+移动硬盘40g

2006:笔记本160g+移动硬盘40g+40g

n年下来硬盘里的各种软件资料文件越来越多.已经达到了忍不了的程度.

硬盘里的文件无非就几项 音乐 图片 软件

音乐图片(照片)都有相应的元数据(tags),并且相应的管理软件也不计其数.

可软件就麻烦多了.绿色版,安装版,各种衍生版.反正没有一个很好的规范来规范软件的管理.

各大软件下载站的分类也五花八门,看了一圈,sf.net 和CHIP做的不错.

CHIP有中文的版本,因此本机的软件可以先按照这个归类.查看CHIP的网页源代码.

可以看到类似于

<li><a href=”http://download.chip.asia/cn/Browser-Enhancements_707943.html”>浏览器增强</a></li>

的代码

用正则表达式可以将分类提取出来,这里推荐一个正则表达式的相关网站:我爱正则表达式

下面这个正则可以把大部分中文分类抓取下来.

[a-zA-Z0-9]*[^\x00-\xff]+

呃.还可以抓取Browser-Enhancements这些相应的英文分类.

各位当做自己的正则练习吧:) 之后就可以将列表扔到excel里进行进一步的处理了.

一级分类放到了第一行.

一级分类下面为相应的二级的分类

Sub mkdir1()
‘建立文件夹
‘宏由 晓梦 编写,时间:2009-1-1 20:51

Dim path As String          ‘定义根目录路径’
Dim foldername As String    ‘定义一级子目录文件名’
Dim folderpath As String    ‘定义一级子目录文件路径’
Dim x As Integer            ‘控制一级子目录循环
Dim y As Integer            ‘控制二级目录循环
Dim text As String          ‘调试用临时变量
Dim rownum As Integer       ‘得到二级目录数量

Dim subfolderpath As String ‘定义二级目录路径
Dim subfoldername As String ‘定义二级目录名称
path = “g:\software\”

For x = 1 To 9
foldername = Worksheets(“sheet4”).Cells(1, x).Value ‘获得第一行,第一列到第x列的值
folderpath = path + foldername  ‘ex.g:\software\foldername

mkdir folderpath

rownum = Worksheets(“sheet4”).Cells(1, x).End(xlDown).Row – 1
‘得到二级目录的个数,用于下面的循环

For y = 1 To rownum
‘建立二级目录过程
subfoldername = Worksheets(“sheet4”).Cells(y + 1, x).Value

subfolderpath = path + foldername + “\” + subfoldername

mkdir subfolderpath

Next y

Next x

End Sub
呃.这样就可以建立好文件夹了…

如果嫌麻烦的话.可以直接下载我弄好的文件夹列表