filesystemobject组件的用法示例

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

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

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

3、SystemObject.OpenTextFile’-FileSystemObject.GetFile’-TextStream.ReadAll’-TextStream.Close’-File.OpenAsTextStream’-TextStream.AtEndOfStream’-TextStream.ReadLine’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’FunctionGetLyrics(FSO)DimTex

4、tStreamDimSDimFile’有多种方法可用来打开一个文本文件，和多种方法来从文件读取数据。’这儿用了两种方法来打开文件和读取文件：SetTextStream=FSO.OpenTextFile(TestFilePath"BeatlesOctopusGarden.txt",OpenFileForReading)S=TextStream.ReadAllNep;Ne.CloseSetFile=FSO.GetFile(TestFilePath"BeatlesBathroom(OpenFileForRead

5、ing)Do.AtEndOfStreamS=STextStream.ReadLine&12下一页>>>>这篇文章来自..，。nbsp;Ne.CloseGetLyrics=SEndFunction上一页12>>>>这篇文章来自..，。