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