''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' CreateLyrics
' Purpose:
' Create two text files in the folder.
' Demonstrate the following
' - 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 ) ' Note that this statement does not add line wraps to the file.
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
' Purpose:
' Show the contents of the lyrics file.
' Demonstrate the following
' - FileSystemObject.OpenTextFile
' - FileSystemObject.GetFile
' - TextStream.ReadAll
' - TextStream.Close
' - File.OpenAsTextStream
' - TextStream.AtEndOfStream
' - TextStream.ReadLine
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function GetLyrics(FSO)
Dim TextStream
Dim S
Dim File
'There are multiple ways to open a text file, and multiple ways to read data from the file.
' Here are two ways to open and read files:
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