FileSystemObject 示例代码
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| 种方法可用来删除文件：FSO.DeleteFile(TestFilePath&"\Beatles\OctopusGarden.txt")SetFile=FSO.GetFile(TestFilePath&"\Beatles\BathroomWindow.txt") File.Delete''有两种方法可用来删除文件夹： FSO.DeleteFolder(TestFilePath&"\Beatles") FSO.DeleteFile(TestFilePath&"\ReadMe.txt") SetTestFolder=FSO.GetFolder(TestFilePath) TestFolder.DeleteEndSub'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''CreateLyrics ''目的： ''在文件夹中创建两个文本文件。 ''示范下面的内容 ''-FileSystemObject.CreateTextFile ''-TextStream.WriteLine ''-TextStream.Write ''-TextStream.WriteBlankLines ''-TextStream.Close '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''SubCreateLyrics(Folder)DimTextStream SetTextStream=Folder.CreateTextFile("OctopusGarden.txt") TextStream.Write("Octopus''Garden")''请注意，该语句不添加换行到文件中。 TextStream.WriteLine("(byRingoStarr)") TextStream.WriteBlankLines(1) TextStream.WriteLine("I''dliketobeundertheseainanoctopus''gardenintheshade,") TextStream.WriteLine("He''dletusin,knowswherewe''vebeen--inhisoctopus''gardenintheshade.") TextStream.WriteBlankLines(2) TextStream.CloseSetTextStream=Folder.CreateTextFile("BathroomWindow.txt") TextStream.WriteLine("SheCameInThroughTheBathroomWindow(byLennon/McCartney)") TextStream.WriteLine("") TextStream.WriteLine("Shecameinthroughthebathroomwindowprotectedbyasilverspoon") TextStream.WriteLine("Butnowshesucksherthumbandwandersbythebanksofherownlagoon") TextStream.WriteBlankLines(2) TextStream.CloseEndSub'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''GetLyrics ''目的： ''显示lyrics文件的内容。 ''示范下面的内容 ''-FileSystemObject.OpenTextFile ''-FileSystemObject.GetFile ''-TextStream.ReadAll ''-TextStream.Close ''-File.OpenAsTextStream ''-TextStream.AtEndOfStream ''-TextStream.ReadLine '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''FunctionGetLyrics(FSO)DimTextStream DimS DimFile''有多种方法可用来打开一个文本文件，和多种方法来从文件读取数据。 ''这儿用了两种方法来打开文件和读取文件：SetTextStream=FSO.OpenTextFile(TestFilePath&"\Beatles\OctopusGarden.txt",OpenFileForReading) S=TextStream.ReadAll&NewLine&NewLine TextStream.CloseSetFile=FSO.GetFile(TestFilePath&"\Beatles\BathroomWindow.txt") SetTextStream=File.OpenAsTextStream(OpenFileForReading) DoWhileNotTextStream.AtEndOfStream S=S&TextStream.ReadLine&NewLine Loop TextStream.CloseGetLyrics=S EndFunction'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''' ''BuildTestDirectory ''目的： ''创建一个目录分层结构来示范FileSystemObject。 ''以这样的次序来创建分层结构： ''C:\Test ''C:\Test\ReadMe.txt ' |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
上一篇: VBS教程：VBScript 基础-VBScript 变量下一篇: 脚本编程 4 驱动器
关于FileSystemObject 示例代码的所有评论
