设计 FileSystemObject

原创 2005年05月13日 12:43:00

设计 FileSystemObject

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

  • 使用 CreateObject 方法来创建 FileSystemObject 对象。
  • 在新创建的对象上使用适当的方法。
  • 访问对象的属性。

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" 方法:

  • GetDrive
  • GetFolder
  • GetFile

在 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); 

VBA使用FileSystemObject将读取或写入文本文件

有时,我们需要将一个文本文件中的数据读取到Excel单元格中,或将指定单元格的内容按指定的格式导出到文本文件中,这时,我们就需要使用Scripting.FileSystemObject对象来进行操作。...

VBA操作文件四大方法之三--FileSystemObject

VBA操作文件四大方法之三FileSystemObject    (一)准备工作 (二)FileSystemObject对象的方法 1、GetDrive 方法 2、GetDriveNa...

js 文件操作 fso new ActiveXObject( "Scripting.FileSystemObject ")

方法或者属性 描述  BuildPath()   生成一个文件路径  CopyFile()  复制文件  CopyFolder()  复制目录  CreateFolder()  创建新目录  ...

new ActiveXObject("Scripting.FileSystemObject") 未能创建对象的解决方法

项目中有一个页面JavaScript代码通过ActiveXObject创建FileSystemObject实现文件的读取。 function Login() {       var fso;  ...
  • qwdx1k2
  • qwdx1k2
  • 2014年04月08日 21:41
  • 4377

script.filesystemobject

Scripting.FileSystemObject 创建文件夹 Sub CreateAFolder(file) Dim fso Set fso = CreateObject("Scripting.F...

javascript ActiveXObject FileSystemObject 对象,创建、复制、删除、读取文件等

Javascript是网页制作中离不开的脚本语言,依靠它,一个网页的内容才生动活泼、富有朝气。但也许你还没有发现并应用它的一些更高级的功能吧?比如,对文件和文件夹进行读、写和删除,就象在VB、VC等高...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:设计 FileSystemObject
举报原因:
原因补充:

(最多只允许输入30个字)