FileSystemObject 示例代码

　2008-01-05 08:11:41　来源：WEB开发网　　　

核心提示：在本节描述的示例代码，提供真实的例子来示范在 FileSystemObject 对象模式中可用的许多功能，FileSystemObject 示例代码，该代码显示了如何一起使用对象模式的所有功能，以及如何在您自己的代码中有效地使用这些功能，无论如何，它是' 一种非常好维护的写代码方法，请注重，由于该代码是极

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

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

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

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

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

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

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

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

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

Sub PRint(x)
　 Response.Write "<PRE><FONT FACE=""宋体"" SIZE=""1"">"
　 Response.Write x
　 Response.Write "</FONT></PRE>"
End Sub
Main

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

Sub Print(x)
　 WScript.Echo x
End Sub
Main

下面就是示例代码：

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' FileSystemObject 示例代码
'Copyright 1998  Microsoft Corporation。　 保留所有权利。 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Option Explicit

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 对于代码质量：
' 1) 下面的代码有许多字符串操作，用"&"运算符来把短字符串连接在一起。由于
'    字符串连接是费时的，所以这是一种低效率的写代码方法。无论如何，它是
'    一种非常好维护的写代码方法，并且在这儿使用了这种方法，因为该程序执行