设计 FileSystemObject

要用 FileSystemObject (FSO) 对象模式来编程,则:

FSO 对象模式包含在 Scripting 类型库中,该库位于 Scrrun.dll 文件中。因而,要使用 FSO 对象模式,必须把 Scrrun.dll 放在 Web 服务器的适当系统目录中。

创建 FileSystemObject 对象

首先,使用 CreateObject 对象来创建 FileSystemObject 对象, 在 VBScript 中,使用下面的代码来创建 FileSystemObject 的一个实例:

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")

  示例代码示范了如何创建 FileSystemObject 的一个实例。

在 Visual Basic Scripting Edition 中,使用下面的代码来做同样的事情:

var fso;
fso = new ActiveXObject("Scripting.FileSystemObject");

在这两个示例中,Scripting 是类型库的名字,而 FileSystemObject 则是想要创建的对象的名字。可以只创建 FileSystemObject 对象的一个实例,而不管试图创建另一个实例的次数。

使用适当的方法

其次,使用 FileSystemObject 对象的适当方法。例如,要创建一个新的对象,则使用 CreateTextFileCreateFolder (FSO 对象模式不支持驱动器的创建或删除)。

要删除对象,则使用 FileSystemObject 对象的 DeleteFileDeleteFolder 方法,或 FileFolder 对象的 Delete 方法。也可以使用适当的方法,来复制和移动文件与文件夹。

注意   FileSystemObject 对象模式中的某些功能是多余的。例如,可以用 FileSystemObject 对象的 CopyFile 方法,也可以用 File 对象的 Copy 方法来复制文件。这两种方法功能是相同的;两种方法都能使编程灵活。

访问现有驱动器、文件和文件夹

要访问现有驱动器、文件或文件夹,则使用 FileSystemObject 对象中的适当的 "get" 方法:

在 VBScript 中要访问现有文件:

Dim fso, f1
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.GetFile("c:\test.txt")

在 Visual Basic Scripting Edition 中要做同样的事情,则使用下面的代码:

var fso, f1;
fso = new ActiveXObject("Scripting.FileSystemObject");
f1 = fso.GetFile("c:\\test.txt");

不要对新创建的对象使用 "get" 方法,因为 "create" 函数已经返回那个对象的一个句柄。例如,如果使用 CreateFolder 方法创建了一个新的文件夹,则不要使用 GetFolder 方法来访问它的属性,如 NamePathSize等等。只需设一个变量给 CreateFolder 函数,来获得新创建文件夹的句柄名,然后访问它的属性、方法和事件。要在 VBScript 中这样做,则使用下面的代码:

Sub CreateFolder
   Dim fso, fldr
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set fldr = fso.CreateFolder("C:\MyTest")
   Response.Write "Created folder: " & fldr.Name
End Sub

在 Visual Basic Scripting Edition 中给 CreateFolder 函数设置一个变量,则使用下面的语法:

function CreateFolder()
{
   var fso, fldr;
   fso = new ActiveXObject("Scripting.FileSystemObject");
   fldr = fso.CreateFolder("C:\\MyTest");
   Response.Write("Created folder: " + fldr.Name);
}

访问对象的属性

一旦有了对象的句柄,就可以访问它的属性。例如,要获得特定文件夹的名字,首先创建该对象的一个实例,然后用适当的方法获得它的句柄(在这个例子中是 GetFolder 方法,因为该文件夹已经存在了)。

在 VBScript 中,用该代码来获得 GetFolder 方法的一个句柄:

Set fldr = fso.GetFolder("c:\")

在 Visual Basic Scripting Edition 中要做同样的事情,则使用下面的代码:

var fldr = fso.GetFolder("c:\\");

现在,已经有了 Folder 对象的句柄,就可以检查它的 Name 属性了。在 VBScript 中使用下面的代码来检查:

Response.Write "Folder name is: " & fldr.Name

在 Visual Basic Scripting Edition 中要检查 Name 属性,则使用下面的语法:

Response.Write("Folder name is: " + fldr.Name);

要找出最后一次修改文件的时间,则使用下面的 VBScript 语法:

Dim fso, f1
Set fso = CreateObject("Scripting.FileSystemObject")
' 获得要查询的文件对象。
Set f1 = fso.GetFile("c:\detlog.txt")   
' 打印信息。
Response.Write "File last modified: " & f1.DateLastModified 

要用 Visual Basic Scripting Edition 找出上一次修改的文件,则使用下面的代码:

var fso, f1;
fso = new ActiveXObject("Scripting.FileSystemObject");
// 获得要查询的文件对象。
f1 = fso.GetFile("c:\\detlog.txt");   
// 打印信息。
Response.Write("File last modified: " + f1.DateLastModified);