FileSystemObject 示例代码
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| 'C:\Test\Beatles ''C:\Test\Beatles\OctopusGarden.txt ''C:\Test\Beatles\BathroomWindow.txt ''示范下面的内容 ''-FileSystemObject.DriveExists ''-FileSystemObject.FolderExists ''-FileSystemObject.CreateFolder ''-FileSystemObject.CreateTextFile ''-Folders.Add ''-Folder.CreateTextFile ''-TextStream.WriteLine ''-TextStream.Close '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''FunctionBuildTestDirectory(FSO)DimTestFolder DimSubFolders DimSubFolder DimTextStream ''排除(a)驱动器不存在，或(b)要创建的目录已经存在的情况。IfNotFSO.DriveExists(TestDrive)Then BuildTestDirectory=False ExitFunction EndIfIfFSO.FolderExists(TestFilePath)Then BuildTestDirectory=False ExitFunction EndIfSetTestFolder=FSO.CreateFolder(TestFilePath)SetTextStream=FSO.CreateTextFile(TestFilePath&"\ReadMe.txt") TextStream.WriteLine("Mysonglyricscollection") TextStream.CloseSetSubFolders=TestFolder.SubFolders SetSubFolder=SubFolders.Add("Beatles") CreateLyricsSubFolder BuildTestDirectory=TrueEndFunction'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''' ''主程序 ''首先，它创建一个test目录，以及一些子文件夹和文件。 ''然后，它转储有关可用磁盘驱动器和test目录的某些信息， ''最后，清除test目录及其所有内容。 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''SubMainDimFSO''设立全局变量。 TabStop=Chr(9) NewLine=Chr(10) SetFSO=CreateObject("Scripting.FileSystemObject")IfNotBuildTestDirectory(FSO)Then Print"Testdirectoryalreadyexistsorcannotbecreated.Cannotcontinue." ExitSub EndIfPrintGenerateDriveInformation(FSO)&NewLine&NewLine PrintGenerateTestInformation(FSO)&NewLine&NewLine PrintGetLyrics(FSO)&NewLine&NewLine DeleteTestDirectory(FSO)EndSub |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
上一篇: VBS教程：VBScript 基础-VBScript 变量下一篇: 脚本编程 4 驱动器
关于FileSystemObject 示例代码的所有评论
