This Domain(Admin5.com) is for Sale:

FileSystemObject 示例代码

时间:2007-12-27  来源:不详  作者:林子

在本节描述的示例代码，提供真实的例子来示范在 FileSystemObject 对象模式中可用的许多功能。该代码显示了如何一起使用对象模式的所有功能，以及如何在您自己的代码中有效地使用这些功能。 内容来自dedecms

请注重，由于该代码是极一般的，所以要使该代码能够真正在您的机器上运行，可能需要一些其他代码和小小的变更。这些改变之所以必要，是因为在 Active Server Pages 和 Windows Scripting Host 之间，为输入和输出给用户采用了不同的方法。

本文来自织梦

要在 Active Server Pages 上运行该代码，则采取以下步骤： 织梦好，好织梦

创建一个标准的 Web 页，后缀名为 .asp。

copyright dedecms

把下面的示例代码复制到 &ltBODY>...</BODY> 标记之间的文件中。 dedecms.com

把所有代码包装器到 <%...%> 标记内。

内容来自dedecms

把 Option Explicit 语句从当前位置移动到 HTML 页的最顶部，甚至在 <HTML> 开始标记前。

dedecms.com

把 <%...%> 标记放置在 Option Explicit 语句四周，以保证它在服务器端运行。

内容来自dedecms

把下面的代码添加到示例代码末尾： dedecms.com 

Sub Print(x)

Response.Write "<PRE>&ltFONT FACE=""宋体"" SIZE=""1"">"

Response.Write x

Response.Write "</FONT></PRE>"

End Sub

Main 织梦好，好织梦

前面的代码增加一个将在服务器端运行，但在客户端显示结果的打印过程。要在 Windows Scripting Host 上运行该代码，则把下面的代码添加到示例代码的末尾： dedecms.com 

Sub Print(x)

WScript.Echo x

End Sub

Main 
内容来自dedecms

下面就是示例代码：

织梦好，好织梦

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

' FileSystemObject 示例代码

'Copyright 1998  Microsoft Corporation。保留所有权利。 

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''



Option Explicit



''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

' 对于代码质量：

' 1) 下面的代码有许多字符串操作，用"&"运算符来把短字符串连接在一起。由于

'    字符串连接是费时的，所以这是一种低效率的写代码方法。无论如何，它是

'    一种非常好维护的写代码方法，并且在这儿使用了这种方法，因为该程序执行

'    大量的磁盘操作，而磁盘操作比连接字符串所需的内存操作要慢得多。

'    记住这是示范代码，而不是产品代码。

'

' 2) 使用了 "Option Explicit"，因为访问声明过的变量，比访问未声明的变量要

'    稍微快一些。它还能阻止在代码中发生错误，例如，把 DriveTypeCDROM 误拼

'    成了 DriveTypeCDORM 。

'

' 3) 为了使代码更可读，该代码中没有错误处理。虽然采取了防范措施，来保证代码

'    在普通情况下没有错误，但文件系统是不可预知的。在产品代码中，使用

'    On Error Resume Next 和 Err 对象来捕捉可能发生的错误。

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''



''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
标签云:代码 TabStop NewLine If Dim End

看完这篇，您有何感觉呢？

上一篇：处理文件   下一篇：设计 FileSystemObject

文章评论

共有位Admini5网友发表了评论 查看完整内容