'' '' '' '' '' '' '' '' ''は、 ''は、 '' ''は 'の'は '' 'は、' '' ''です。
'CreateLerics
' 目的：
'フォルダーに2つのテキストファイルを作成します。
'以下を示します
'-filesystemobject.createTextFile
'-TextStream.WriteLine
'-TextStream.Write
'-TextStream.WriteBlanklines
'-TextStream.Close
'' '' '' '' '' '' '' '' ''は、 ''は、 '' ''は 'の'は '' 'は、' '' ''です。
sub createLerics（フォルダー）
薄暗いテキストストリーム
TextStream = folder.createTextFile（Octopusgarden.txt）を設定します
TextStream.Write（Octopus 'Garden）'このステートメントはファイルにラインラップを追加しないことに注意してください。
TextStream.WriteLine（（Ringo Starrによる））
textStream.writeblanklines（1）
TextStream.WriteLine（日陰のタコの庭の海の下にいたい）
TextStream.WriteLine（彼は私たちを入れて、私たちがどこにいたのかを知っています - 日陰の彼のタコの庭で。）
textStream.writeblanklines（2）
textStream.close
textStream = folder.createTextFile（浴室window.txt）を設定します
TextStream.WriteLine（彼女はバスルームの窓から（レノン/マッカートニーによる）入ってきました）
textStream.writeLine（）
TextStream.WriteLine（彼女は銀のスプーンで保護されたバスルームの窓から入ってきました）
TextStream.WriteLine（しかし今、彼女は親指を吸い、自分のラグーンのほとりをさまよう）
textStream.writeblanklines（2）
textStream.close
End Sub
'GetLyrics
' 目的：
'歌詞ファイルの内容を表示します。
'以下を示します
'-filesystemobject.opentextfile
'-filesystemObject.getFile
'-TextStream.Readall
'-TextStream.Close
'-file.openastextStream
'-TextStream.AtendofStream
'-TextStream.Readline
'' '' '' '' '' '' '' '' ''は、 ''は、 '' ''は 'の'は '' 'は、' '' ''です。
関数GetLyrics（FSO）
薄暗いテキストストリーム
dim s
DIMファイル
「テキストファイルを開くには複数の方法があり、ファイルからデータを読み取る方法が複数あります。
「ファイルを開いて読み取る2つの方法があります。
textStream = fso.opentextfile（testfilepath＆/beatles/octopusgarden.txt、openfileforreading）を設定します。
S = TextStream.Readall＆NewLine＆NewLine
textStream.close
file = fso.getfile（testfilepath＆/beatles /bathroomwindow.txt）を設定します。
textStream = file.openastextStream（openFileForreading）を設定します
textStream.AtendofStreamではありません
s = s＆textStream.readline＆newline
ループ
textStream.close
getLyrics = s
エンド関数