\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'
\' CreateLyrics
\' 目的：
\' 在文件夹中创建两个文本文件。
\' 示范下面的内容
\' - FileSystemObject.CreateTextFile
\' - TextStream.WriteLine
\' - TextStream.Write
\' - TextStream.WriteBlankLines
\' - TextStream.Close
\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'

Sub CreateLyrics(Folder)

Dim TextStream

Set TextStream = Folder.CreateTextFile("OctopusGarden.txt")

TextStream.Write("Octopus\' Garden ") \' 请注意，该语句不添加换行到文件中。
TextStream.WriteLine("(by Ringo Starr)")
TextStream.WriteBlankLines(1)
TextStream.WriteLine("I\'d like to be under the sea in an octopus\' garden in the shade,")
TextStream.WriteLine("He\'d let us in, knows where we\'ve been -- in his octopus\' garden in the shade.")
TextStream.WriteBlankLines(2)

TextStream.Close

Set TextStream = Folder.CreateTextFile("BathroomWindow.txt")
TextStream.WriteLine("She Came In Through The Bathroom Window (by Lennon/McCartney)")
TextStream.WriteLine("")
TextStream.WriteLine("She came in through the bathroom window protected by a silver spoon")
TextStream.WriteLine("But now she sucks her thumb and wanders by the banks of her own lagoon")
TextStream.WriteBlankLines(2)
TextStream.Close

End Sub

\' GetLyrics
\' 目的：
\' 显示 lyrics 文件的内容。
\' 示范下面的内容
\' - FileSystemObject.OpenTextFile
\' - FileSystemObject.GetFile
\' - TextStream.ReadAll
\' - TextStream.Close
\' - File.OpenAsTextStream
\' - TextStream.AtEndOfStream
\' - TextStream.ReadLine
\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'

Function GetLyrics(FSO)

Dim TextStream
Dim S
Dim File

\' 有多种方法可用来打开一个文本文件，和多种方法来从文件读取数据。
\' 这儿用了两种方法来打开文件和读取文件：

Set TextStream = FSO.OpenTextFile(TestFilePath & "BeatlesOctopusGarden.txt", OpenFileForReading)

S = TextStream.ReadAll & NewLine & NewLine
TextStream.Close

Set File = FSO.GetFile(TestFilePath & "BeatlesBathroomWindow.txt")
Set TextStream = File.OpenAsTextStream(OpenFileForReading)
Do While Not TextStream.AtEndOfStream
S = S & TextStream.ReadLine & NewLine
Loop
TextStream.Close

GetLyrics = S

End Function