本站原创本文是一篇数据库论文范文,数据库类毕业论文格式范文,关于利用VBA轻松制作文件目录相关毕业论文参考文献格式范文。适合数据库及文件及文件夹方面的的大学硕士和本科毕业论文以及数据库相关开题报告范文和职称论文写作参考文献资料下载。
实例描述：小张是一位影视作品爱好者,在电脑硬盘上分门别类地收藏了大量影视作品（图1）.他想将各个类别文件夹中影视资料的文件名制成目录存放到Excel工作表中.如果一个一个文件名去复制粘贴到工作表中,这样的工作量是可想而知的.那有没有什么好的办法来帮助小张解决这个难题呢?
实例分析：试想,既然不同类型的影片存放在不同的文件夹中,那么就可以遍历每个文件夹中的影视文件并获取它们的文件名,然后在不同的工作表中进行查找.如果工作表中已经存在,就不要添加了,否则就在相应的工作表中添加一条件记录.那如何实现相应的任务呢?
用VBA遍历文件夹
这个过程主要是在Excel中编写VBA代码,通过代码遍历文件夹中的每个文件并获取相应的文件名.一提到编写代码,你可能就有些犯晕了.其实,程序代码也没那么神秘,在这里你可先将我的代码输入或复制到你的文件中,然后看看我的解释,一切就OK了!
首先,打开Excel2003,点击“工具→宏→VisualBasic编辑器”菜单,这时就会弹出MicrosoftVisualBasic程序窗口,也就是VBA的编辑器.在VBA编辑器窗口中选择“插入→模块”菜单,这时在右侧可以看到空白的代码编辑区域,输入或贴入图中代码（图2）.代码下载地址：http：//iask.sina../u/ish?uid等于1704202287
在上述代码中,共编写了两个过程,分别为FileList和ml.FileList这个过程的作用是遍历参数Path所代表的文件夹及其子文件夹中的文件,并把根据子文件夹的名字在Excel中建立工作表.其中,在FileList过程中,FileSystemObject的简称是FSO,当然也就是我们俗称的FSO组件了.
FSO,正如UFO般令人激动、令人神往,当然更多的是让人欢喜让人忧.君不见某空间服务商广告：100MB空间只要60RMB/年,支持数据库,支持什么什么等一问不支持FSO,立马泄气.该组件可以检测并显示出系统驱动器的信息分配情况,还能够创建、改变、移动和删除文件夹,并能探测一些给定的文件夹是否存在.若存在,还能提取出该文件夹的信息,如名称、被创建或最后一次修改的日期,等等.FSO还使得对文件的处理变得很容易.
正如其他组件的建立一样,FSO的引用也必须建立连接.通过语句：
Setfso等于CreateObject（"Scripting.FileSystemObject"）
使FSO组件可以被FSO变量调用,即可以通过变量FSO来处理驱动器上的文件或文件夹.
制作便于操作的按钮
为了操作方便,我们可把上面编写的过程放到一个按钮上.首先,在Excel中选择“视图→工具栏→窗体”菜单,在“窗体”工具栏上点击“按钮”,按住鼠标左键根据需要拖出一个按钮.在弹出的“指定宏”窗口中,选择过程ml,确定后退出.最后,在按钮的标签处单击,修改按钮的标签,如更改为“生成目录”.
最后,点击“生成目录”按钮,就会发现工作簿中添加了以影视作品分类文件夹命名的工作表,并且每个工作表中都生成了相应的目录（图3）.