filesystemobject组件的用法示例--

《filesystemobject组件的用法示例--》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、filesystemobject组件的用法示例>>’CreateLyrics’目的：’在文件夹中创建两个文本文件。’示范下面的内容’-FileSystemObject.CreateTextFile’-TextStream....Close’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’SubCreateLyrics(Folder)DimTextStreamSetTextStream=Folder.CreateTextFi

2、le("OctopusGarden.txt")TextStream......CloseSetTextStream=Folder.CreateTextFile("BathroomeInThroughTheBathroom.einthroughthebathroom..CloseEndSub’GetLyrics’目的：’显示lyrics文件的内容。’示范下面的内容’-FileSystemObject.OpenTextFile’-FileSystemObject.GetFile’-TextStream.ReadAll’

3、-TextStream.Close’-File.OpenAsTextStream’-TextStream.AtEndOfStream’-TextStream.ReadLine’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’FunctionGetLyrics(FSO)DimTextStreamDimSDimFile’有多种方法可用来打开一个文本文件，和多种方法来从文件读取数据。’这儿用了两种方法来打开文件和读取文件：Set

4、TextStream=FSO.OpenTextFile(TestFilePath"BeatlesOctopusGarden.txt",OpenFileForReading)S=TextStream.ReadAllNep;Ne.CloseSetFile=FSO.GetFile(TestFilePath"BeatlesBathroom(OpenFileForReading)Do.AtEndOfStreamS=STextStream.ReadLineNe.CloseGetLyrics12下一页>>>>这篇文章来自

5、..，。=SEndFunction上一页12>>>>这篇文章来自..，。