filesystemobject组件的用法示例

""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
" 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