在vb中使用文件对象
纲要
随着visual basic scripting edition2.0版本的发布，微软提供了一种全新的文件操作方法——文件系统对象（filesystemobject）。用对象编程，这正是开发者们所希望用到。这个对象，包括一些其它的相关对象，封装了所有的文件操作。这篇文章将向你介绍这些对象，并且展示如何利用它们来编程。
正文
在vb中使用文件对象
作 者 : 扬眉
自从visual basic第一次发布到现在，它的大部分主要的特性大都被修改了不下一次。但文件操作部分却是个例外。在最原始的basic语言中，文件就是用文件号（file number）来读写的。用一个数字来操作文件，或许者多少有一点晦涩难懂，这也令大多数的初学者感到不习惯和难以理解。
随着visual basic scripting edition2.0版本的发布，微软提供了一种全新的文件操作方法——文件系统对象（filesystemobject）。用对象编程，这正是开发者们所希望用到。这个对象，包括一些其他的相关对象，封装了所有的文件操作。这篇文章将向你介绍这些对象，并且展示如何利用它们来编程。 要使用这些对象，在vb的应用程序中就必须引用microsoft scripting runtime （c:\windows\system\scrrun.dll）对象库。但是如果是为internet explore 编写vbscript，直接使用就可以了。下面是这些对象的概要：
* drive - 代表一个单独的驱动器，可以是软驱，硬盘，或者是光驱等其他存贮介质。
* drives - 一个集合对象，包括系统中所有的驱动器。
* file - 代表系统中的一个磁盘文件。
* files - 集合对象，是一些文件的集合。典型的是代表一个目录下的所有文件。
* filesystemobject - 代表系统中整个文件系统的对象。包括所有驱动器，目录和文件。
* folder - 代表一个目录，可以是本地的，也可以是远程目录。
* folders - 一些目录的集合体。
* textstream - 文本流对象，代表一个用来读写的打开的文件。
想得到系统中所有的驱动器的信息，可以用下面的这段代码来实现。
sub main()
dim objfso as new scripting.filesystemobject
dim drvloop as scripting.drive
for each drvloop in objfso.drives
debug.print drvloop.driveletter & ":\"
if drvloop.drivetype = fixed _
or drvloop.isready then
debug.print " total size: " _
& format$(drvloop.totalsize / (1024 ^ 2), "#0.00 mb")
debug.print " free space: " _
& format$(drvloop.freespace / (1024 ^ 2), "#0.00 mb")
debug.print " volume label: " & drvloop.volumename
else
debug.print " disk information unavailable"
end if
next drvloop
set objfso = nothing
end sub
在试图存取像软盘，光盘这些可移动介质驱动器，特别是存取笔记本电脑的可交换驱动器的时候要注意：windows总是认为驱动器是存在的，而不管是否真的有盘片在里面。这时候可以用drive对象isready对象来检测驱动器是否准备好。否则可能造成vb应用程序的死锁。
drive对象还有一些其他的属性，可以用对象浏览器来察看它所有属性。
除了可以遍历所有的驱动器，你也可以遍历某个文件夹下的所有文件。这在当你需要在整个驱动器中查找特定的文件的时候特别有用。recursion is also very helpful in these cases since you need to keep performing the same action as you work your way down the tree. 下面这段代码用来统计所有gif文件的个数。它也可以很容易的修改成文件列表，对特定的文件做指定的操作，等等。其中的关键在于目录数的遍历：
option explicit
dim m_lngfilecount as long '定义计数器
dim m_objfso as scripting.filesystemobject '定义文件系统对象
sub main()
set m_objfso = new scripting.filesystemobject
m_lngfilecount = 0
checkfolder "c:\"
debug.print "c盘下gif文件总数: " & m_lngfilecount
end sub
sub checkfolder(strpath as string)
dim objfolder as scripting.folder '文件夹对象
dim objfile as scripting.file '文件对象
dim objsubdirs as scripting.folders '文件夹集合对象
dim objloopfolder as scripting.folder '文件夹对象
debug.print "checking directory " & strpath
set objfolder = m_objfso.getfolder(strpath)
' 检查目录中的文件
for each objfile in objfolder.files
if ucase$(right$(objfile.shortpath, 4)) = ".gif" then
'这一段是条件检查，但找到的文件是否符合给定的条件，这儿通过取文件名的
'最后4位看是不是“.gif“来判断文件是否是gif文件。
m_lngfilecount = m_lngfilecount + 1
'找到指定条件的文件后进行相应的操作，这儿是把计数器加一。
end if
next objfile
' 在所有子目录中循环，计数。
set objsubdirs = objfolder.subfolders
for each objloopfolder in objsubdirs
checkfolder objloopfolder.path
'递归调用checkfolder子过程，实现目录树的遍历。
next objloopfolder
set objsubdirs = nothing
set objfolder = nothing
end sub
为了简化这段代码，filesystemobject对象和文件计数器都被定义为这个模块的全局变量（因此前面都加了m_前缀）。checkfolder 子程序开始时用c:\ 作为入口参数，一旦找到一个符合条件的文件，就把计数值加一。检查完下面的所有文件后，再用其子目录作为参数调用checkfolder过程本身。当所有的目录都被作为参数调用了之后，所有的文件也就被检查完了。这就是用递归遍历目录树的方法。所谓递归，就是过程直接或者间接的调用自身。最后，作为过程调用的结果，统计数字被main过程显示出来。
只要把检验文件是否为gif文件的部分换成其它的条件，再把计数的语句换成想要执行的语句块。每当找到符合条件的语句后，就会执行这个语句块。这样就可以很容易的把代码修改用于其它的用途。
如果你曾今用过dir函数来实现同样的功能，那么你一定会感到用对象编程的方便之处。不论你是想检查文件属性，还是创建新的文件，或者其它任何关于文件的操作，新的文件对象都会为你节省不少时间，而且是代码更加易于理解。
