按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
Dim fs As FileSystemObject
Set fs = New FileSystemObject
If fs。FolderExists（〃C：TestFolder〃） Then
fs。DeleteFolder 〃C：TestFolder〃
MsgBox 〃The folder was deleted。〃
End If
End Sub
CreateTextFile 创建文本文件
159
… 页面 176…
OpenTextFile 打开文本文件
Sub ReadTextFile（）
Dim fs As Object
Dim objFile As Object
Dim strContent As String
Dim strFileName As String
strFileName = 〃C：WINNTSystem。ini〃
Set fs =
CreateObject（〃Scripting。FileSystemObject〃）
Set objFile = fs。OpenTextFile（strFileName）
Do While Not objFile。AtEndOfStream
strContent = strContent & objFile。ReadLine &
vbCrLf
Loop
objFile。Close
Set objFile = Nothing
ActiveWorkbook。Sheets（3）。Select
Range（〃A1〃）。Select
Selection。Formula = strContent
End Sub
对象FileSystemObject只有一个属性，叫做Drives，它返回对硬盘驱动集合的引用。使用该属性，
你可以查看一个电脑硬盘的清单，如下所示：
Sub DrivesList（）
Dim fs As Object
Dim colDrives As Object
Dim strDrive As String
Set fs = CreateObject（〃Scripting。FileSystemObject〃）
Set colDrives = fs。Drives
For Each Drive In colDrives
strDrive = 〃Drive 〃 & Drive。DriveLetter & 〃： 〃
Debug。Print strDrive
Next
End Sub
26。对象 File 的属性
对象File允许你访问某特定文件的所有属性，下面的代码创建了对对象File的引用：
Set fs = CreateObject（〃Scripting。FileSystemObject〃）
Set objFile = fs。GetFile（“C：My DocumentsmyFile。doc”）
在本章前面的过程FileInfo里你可以发现使用对象File的例子。
属性 描述
Attributes 返回文件属性（和本章前面介绍的VBA函数GetAttr比较一下）
DateCreated 文件创建日期
DateLastAccessed 最后访问日期
DateLastModified 最后修改日期
Drive 驱动器名称，后面带冒号
Name 文件名
ParentFolder 文件的父文件夹
160
… 页面 177…
Path 文件完整路径
Size 以字节表示的文件大小（与本章前面介绍的VBA函数FileLen比较一
下）
Type 文件类型。这就是显示在Windows文件浏览器类型一列中的文本（例
如，参数设置，应用程序，快捷方式）
27。文件夹对象属性
对象Folder提供了对所有文件夹属性的访问。下面的代码行创建了对对象Folder的引用：
Set fs = CreateObject（〃Scripting。FileSystemObject〃）
Set objFolder = fs。GetFolder（“C：My Documents”）
属性 描述
Attributes 文件夹属性
DateCreated 文件夹创建日期
Drive 包含该文件夹的驱动器（译者：原文为Name of Folder）
Files 文件夹中的文件集合
Sub CountFilesInFolder（）
Dim fs； strFolder； objFolder； colFiles
strFolder = InputBox（〃Enter the folder name：〃）
If Not IsFolderEmpty（strFolder） Then
Set fs = CreateObject（〃Scripting。FileSystemObject〃）
Set objFolder = fs。GetFolder（strFolder）
Set colFiles = objFolder。Files
MsgBox 〃The number of files in the folder 〃 & _
strFolder & 〃=〃 & colFilesunt
End If
End Sub
上面的过程调用函数IsFolderEmpty，该函数将在本表中的大小属性
里讨论。
IsRootFolder 如果本文件夹为根文件夹则返回True
Name 文件夹名称
ParentFolder 该文件夹的父文件夹
Path 文件夹的完整路径
Size 文件夹大小，以字节表示
Function IsFolderEmpty（myFolder）
Dim fs； objFolder
Set fs = CreateObject（〃Scripting。FileSystemObject〃）
Set objFolder = fs。GetFolder（myFolder）
IsFolderEmpty = （objFolder。Size = 0）
End Function
SubFolders 该文件夹中的子文件夹集合
Type 文件夹类型（例如文件夹或回收站）
28。驱动器对象属性
对象Drive提供了访问到电脑或服务器上某驱动的属性。下述代码创建了对Drive对象的引用：
Set fs = CreateObject（〃Scripting。FileSystemObject〃）
Set objDrive = fs。GetDrive（“C：”）
在下面的表格里，你将看到好几个使用Drive对象的程序示例。
161
… 页面 178…
属性 描述
AvailableSpace 可用空间，字节表示
FreeSpace 同AvailableSpace
DriveLetter 驱动器字母（没有冒号）
DriveType 驱动器类型：
0 — 未知
1 — 可移动
2 — 固定
3 — 网络
4 — CD驱动
5 — RAM
Sub CDROM_DriveLetter（）
Const CDROM = 4
Dim fs； colDrives
Set fs = CreateObject（〃Scripting。FileSystemObject〃）
Set colDrives = fs。Drives
For Each Drive In colDrives
If Drive。DriveType = CDROM Then