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