作 者 : 扬眉
　　 自从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函数来实现同样的功能，那么你一定会感到用对象编程的方便之处。不论你是想

检查文件属性，还是创建新的文件，或者其它任何关于文件的操作，新的文件对象都会为你节省不少时间

，而且是代码更加易于理解。  

·上一篇: 在VB中使用艺术字
·下一篇：用Visual Basic开发数据库浏览器