FileSystemObject 示例代码
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| 在本节描述的示例代码，提供真实的例子来示范在FileSystemObject对象模式中可用的许多功能。该代码显示了如何一起使用对象模式的所有功能，以及如何在您自己的代码中有效地使用这些功能。 请注意，由于该代码是极一般的，所以要使该代码能够真正在您的机器上运行，可能需要一些其他代码和小小的变更。这些改变之所以必要，是因为在ActiveServerPages和WindowsScriptingHost之间，为输入和输出给用户采用了不同的方法。 要在ActiveServerPages上运行该代码，则采取以下步骤： 创建一个标准的Web页，后缀名为.asp。 把下面的示例代码复制到<BODY>...</BODY>标记之间的文件中。 把所有代码包装器到<%...%>标记内。 把OptionExplicit语句从当前位置移动到HTML页的最顶部，甚至在<HTML>开始标记前。 把<%...%>标记放置在OptionExplicit语句周围，以保证它在服务器端运行。 把下面的代码添加到示例代码末尾： SubPrint(x) Response.Write"<PRE><FONTFACE=""宋体""SIZE=""1"">" Response.Writex Response.Write"</FONT></PRE>" EndSub Main 前面的代码增加一个将在服务器端运行，但在客户端显示结果的打印过程。要在WindowsScriptingHost上运行该代码，则把下面的代码添加到示例代码的末尾： SubPrint(x) WScript.Echox EndSub Main 下面就是示例代码： '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''FileSystemObject示例代码 ''Copyright1998MicrosoftCorporation。保留所有权利。 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''OptionExplicit'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''' ''对于代码质量： ''1)下面的代码有许多字符串操作，用"&"运算符来把短字符串连接在一起。由于 ''字符串连接是费时的，所以这是一种低效率的写代码方法。无论如何，它是 ''一种非常好维护的写代码方法，并且在这儿使用了这种方法，因为该程序执行 ''大量的磁盘操作，而磁盘操作比连接字符串所需的内存操作要慢得多。 ''记住这是示范代码，而不是产品代码。 '' ''2)使用了"OptionExplicit"，因为访问声明过的变量，比访问未声明的变量要 ''稍微快一些。它还能阻止在代码中发生错误，例如，把DriveTypeCDROM误拼 ''成了DriveTypeCDORM。 '' ''3)为了使代码更可读，该代码中没有错误处理。虽然采取了防范措施，来保证代码 ''在普通情况下没有错误，但文件系统是不可预知的。在产品代码中，使用 ''OnErrorResumeNext和Err对象来捕获可能发生的错误。 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''一些容易取得的全局变量 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' DimTabStop DimNewLineConstTestDrive="C" ConstTestFilePath="C:\Test"'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''' |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
上一篇: VBS教程：VBScript 基础-VBScript 变量下一篇: 脚本编程 4 驱动器
关于FileSystemObject 示例代码的所有评论
