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 & "\Beatles\OctopusGarden.txt", OpenFileForReading)
　 
　 S = TextStream.ReadAll & NewLine & NewLine
　 TextStream.Close

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

　 GetLyrics = S
　 
End Function