VB 中定义FileSystemObject对象，要先添加对象

存取文件的方法有很多种，可以使用上述VB提供的函数，使用Windows API函数等等，但是最简单的方法是使用FileSystemObject对象。

1、使用FileSystemObject对象

FileSystemObject对象并非VB内置的对象，必须引用“Microsoft Scripting Runtime”对象模块，VB程序才可以使用FileSystemObject。

选取VB菜单的“工程/引用”命令：

引用了“Microsoft Scripting Runtime”对象模块后，如果使用“对象浏览器”窗口，可以看到在“Scripting”模块中新增的Dictionary、Drive、Drives、File、Files、FileSystemObject、Folder、Folders、TextStream等对象。见下图：

其中FileSystemObject是这些对象的关键，要使用其他对象，先必须建立FileSystemObject对象。

FileSystemObject对象及其子对象

建立FileSystemObject对象的方法如下：

Dim 对象变量名 fs As New FileSystemObject

1、Folder对象与文件夹的浏览

使用Folder对象可以获得文件夹的信息，例如：

Dim fs As New FileSystemObject '建立FileSystemObject对象

Dim fd As Folder '定义Folder对象

Set fd = fs.GetFolder("c:\") '建立c:\文件夹所对应的Folder对象

2、Files集合对象和File对象

Folderduix d File属性是一个集合对象，所代表的是该文件夹中所有的File对象的集合。

Dim f As File '定义File对象

For Each f In fd.Files '此时f等于被列举的File对象

下面的代码能在ListBox中显示c:\中的所有文件。

Private Sub Command1_Click()

Dim fs As New FileSystemObject

Dim fd As Folder

Dim f As File '定义File对象

Set fd = fs.GetFolder("c:\")

For Each f In fd.Files '每次进入循环，f代表一个文件

List1.AddItem f.Name '显示每个文件后将其名称加入到ListBox之中

Next

End Sub

3、SubFolder集合对象

除了File属性之外，SubFolder属性也是附属于Folder对象的集合对象，而它所代表的是该文件夹所有Folder对象的集合。

下面的代码能在ListBox中显示c:\中的所有文件夹

Dim fs As New FileSystemObject

Dim fd As Folder

Dim sfd As Folder

Set fd = fs.GetFolder("d:\")

For Each sfd In fd.SubFolders '每次进入循环，sfd代表一个文件夹

List1.AddItem sfd.Name '显示每个文件夹后将其名称加入到ListBox之中

Next

Folder对象和File对象属性应用

依靠Folder的File对象属性可以完成一些实用的程序。

1、如何知道某个文件夹所占用的磁盘空间

Dim fs As New FileSystemObject

Dim fd As Folder

Set fd = fs.GetFolder("C:\")

Debug.Print fd.Size

2、如何显示文件夹的所有子文件夹和子子文件夹

使用VB的“递归调用”（Recursive Call）。所谓递归调用，是指子程序（或函数）在运行时调用自己，例如：

Sub Sub X()

……

SubX '调用自己

……

End Sub

先写好一个可以显示所有子文件夹（但不含子子文件夹）的子程序ListFolder

然后使用“递归调用”，完成显示C盘的所有文件。

Private Sub Command1_Click()

Dim fs As New FileSystemObject ' 建立 FileSystemObject

Dim fd As Folder ' 定义 Folder 对象

Dim sfd As Folder

Set fd = fs.GetFolder("c:\")

ListFolder fd

End Sub

Sub ListFolder(fd As Folder)

Dim sfd As Folder

For Each sfd In fd.SubFolders

Debug.Print sfd.Path

List1.AddItem sfd.Path

ListFolder sfd ' 以 sfd 为参数，递归调用

Next

End Sub

下列是显示符合条件的文件的实例：

程序运行界面：

代码如下：

Private Sub Command1_Click()

Dim fs As New FileSystemObject

Dim fd As Folder, f As File

Dim attr As Long

' 组合文件属性值

attr = IIf(chkReadOnly.Value = 1, ReadOnly, 0)

attr = attr + IIf(chkArchive.Value = 1, Archive, 0)

attr = attr + IIf(chkHidden.Value = 1, Hidden, 0)

attr = attr + IIf(chkSystem.Value = 1, System, 0)

List1.Clear

Set fd = fs.GetFolder("c:\")

For Each f In fd.Files

If (f.Attributes And attr) = attr Then

List1.AddItem f.Name

End If

Next

End Sub