我们在前面File对象的方法中曾提到，可以使用FileSystemObject对象的GetFile()来访问File对象属性。
访问File对象属性的示例如下：
Dim sourcepath
sourcepath = "C:/testing/778899.txt"
Call FolderAttributes(sourcepath)
Sub FolderAttributes(sourcepath)
Dim fso,objFile
Set fso = CreateObject("Scripting.FileSystemObject")
'调用GetFile()返回File对象，通过File对象来访问其下的属性
set objFile = fso.GetFile(sourcepath)
reporter.ReportEvent micDone,"访问file的属性","该文件所在的盘符为：" & objFile.Drive & " 文件名为：" & objFile.Name
End Sub
备注：File对象属性的使用方法和前面介绍的Folder对象属性的使用方法一样，所以在这不一一列出。
TextStream对象概述
TextStream对象是用于访问文本文件的对象，它是FileSystemObject一个独立的附属对象，但在使用TextStream对象时，我们仍要借助FileSystemObject 对象或其附属对象来创建一个 TextStream 对象并访问磁盘文件的内容。可以通过FileSystemObject 对象的CreateTextFile()及OpenTextFile()，来获取TextStream的对象句柄。
下面我们来具体的看看TextStream 对象的方法及属性的使用。
一、TextStream对象的方法
|
表9 TextStream 对象的方法及说明 |
|
|
方法 |
说明 |
|
Close() |
关闭一个打开的文件 |
|
Read(numchars) |
从文件中读出 numchars 个字符 |
|
ReadAll() |
作为单个字符串读出整个文件 |
|
ReadLine() |
作为一个字符串从文件中读出一行（直到回车符和换行） |
|
Skip(numchars) |
当从文件读出时忽略 numchars 个字符 |
|
SkipLine() |
当从文件读出时忽略下一行 |
|
Write(string) |
向文件写入字符串 string |
|
WriteLine(string) |
向文件写入字符串 string（可选）和换行符 |
|
WriteBlankLines(n) |
向文件写入 n 个换行符 |
Close、Write、WriteLine及WriteBlankLines的使用
