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

原文转自：http://www.ltesting.net