1. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''  
2. ' CreateLyrics  
3. ' 目的：  
4. ' 在文件夾中創建兩個文本文件。  
5. ' 示范下面的內容  
6. ' - FileSystemObject.CreateTextFile  
7. ' - TextStream.WriteLine  
8. ' - TextStream.Write  
9. ' - TextStream.WriteBlankLines  
10. ' - TextStream.Close  
11. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''  
12.  
13. Sub CreateLyrics(Folder)  
14.  
15. Dim TextStream  
16.  
17. Set TextStream = Folder.CreateTextFile("OctopusGarden.txt")  
18.  
19. TextStream.Write("Octopus' Garden ") ' 請注意，該語句不添加換行到文件中。  
20. TextStream.WriteLine("(by Ringo Starr)")  
21. TextStream.WriteBlankLines(1)  
22. TextStream.WriteLine("I'd like to be under the sea in an octopus' garden in the shade,")  
23. TextStream.WriteLine("He'd let us in, knows where we've been -- in his octopus' garden in the shade.")  
24. TextStream.WriteBlankLines(2)  
25.  
26. TextStream.Close  
27.  
28. Set TextStream = Folder.CreateTextFile("BathroomWindow.txt")  
29. TextStream.WriteLine("She Came In Through The Bathroom Window (by Lennon/McCartney)")  
30. TextStream.WriteLine("")  
31. TextStream.WriteLine("She came in through the bathroom window protected by a silver spoon")  
32. TextStream.WriteLine("But now she sucks her thumb and wanders by the banks of her own lagoon")  
33. TextStream.WriteBlankLines(2)  
34. TextStream.Close  
35.  
36. End Sub  
37.  
38. ' GetLyrics  
39. ' 目的：  
40. ' 顯示 lyrics 文件的內容。  
41. ' 示范下面的內容  
42. ' - FileSystemObject.OpenTextFile  
43. ' - FileSystemObject.GetFile  
44. ' - TextStream.ReadAll  
45. ' - TextStream.Close  
46. ' - File.OpenAsTextStream  
47. ' - TextStream.AtEndOfStream  
48. ' - TextStream.ReadLine  
49. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''  
50.  
51. Function GetLyrics(FSO)  
52.  
53. Dim TextStream  
54. Dim S  
55. Dim File  
56.  
57. ' 有多種方法可用來打開一個文本文件，和多種方法來從文件讀取數據。  
58. ' 這兒用了兩種方法來打開文件和讀取文件：  
59.  
60. Set TextStream = FSO.OpenTextFile(TestFilePath & "\Beatles\OctopusGarden.txt", OpenFileForReading)  
61.  
62. S = TextStream.ReadAll & NewLine & NewLine  
63. TextStream.Close  
64.  
65. Set File = FSO.GetFile(TestFilePath & "\Beatles\BathroomWindow.txt")  
66. Set TextStream = File.OpenAsTextStream(OpenFileForReading)  
67. Do While Not TextStream.AtEndOfStream  
68. S = S & TextStream.ReadLine & NewLine  
69. Loop  
70. TextStream.Close  
71.  
72. GetLyrics = S  
73.  
74. End Function