FileSystemObject对象及经常使用方法

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

要用 FileSystemObject (FSO) 对象模式来编程，则：

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

1.建立FSO对象

　　使用 CreateObject 对象来建立 FileSystemObject 对象， 在 VBScript 中，使用下面的代码来建立 FileSystemObject 的一个实例：

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

    在 Visual Basic Scripting Edition 中，使用下面的代码来作一样的事情：

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

    在这两个示例中，Scripting 是类型库的名字，而 FileSystemObject 则是想要建立的对象的名字。

2.FSO对象属性方法

　　要建立一个新的对象，则使用 CreateTextFile 或 CreateFolder （FSO 对象模式不支持驱动器的建立或删除）。

　　要删除对象，则使用 FileSystemObject 对象的 DeleteFile 和 DeleteFolder 方法，或 File 和 Folder 对象的 Delete 方法。也能够使用适当的方法，来复制和移动文件与文件夹。

       实例：Set objFSO = CreateObject("Scripting.FileSystemObject")

　　　　　 objFSO.CreateFolder("D:\123")

　　　　　 objFile.CreateTextFile("D:\123.vbs")

　　　　　 Set objFSO = nothing

       或：   Set objFSO = CreateObject("Scripting.FileSystemObject")

　　　　　 Set objFolder = objFSO.CreateFolder("D:\123")

         　　 objFolder.delete

　　　　　 Set objFolder = nothing

　　　　　 Set objFSO = nothing　　

 　　访问现有驱动器、文件和文件夹，使用FSO对象中的适当的 "get" 方法：

• GetDrive
• GetFolder
• GetFile

在 VBScript 中要访问现有文件：

Dim fso, f1
Set fso =CreateObject("Scripting.FileSystemObject")
Set f1 =fso.GetFile("c:\test.txt") '返回test.txt文件的路径“c:\test.txt”
'GetFile 返回与指定文件的路径，参数能够是绝对路径和相对路径，若是指定的文件不存在将出现错误

不要对新建立的对象使用 "get" 方法，由于 "create" 函数已经返回那个对象的一个句柄。例如，若是使用 CreateFolder 方法建立了一个新的文件夹，则不要使用 GetFolder 方法来访问它的属性，如 Name、Path、Size等等。只需设一个变量给 CreateFolder 函数，来得到新建立文件夹的句柄名，而后访问它的属性、方法和事件。要在 VBScript 中这样作，则使用下面的代码：

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

经常使用方法属性实例：
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
Set objFile = objFSO.GetFile(wscript.scriptfullname)
 '获取当前执行文件所在的路径
getProjectPath = objFSO.GetParentFolderName(objFile) '获取文件或文件夹所在路径的上一级目录

Set objFSO = Nothing
 
Set objFile = Nothing

参考：http://www.jb51.net/shouce/vbs/sgprogrammingfilesystemobject-1.htm