作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站

FileSystemObject (FSO) 物件模型包含下列物件和集合物件。

建立 FileSystemObject 物件

首先，利用 CreateObject 方法建立一個 FileSystemObject 物件。在 VBScript 中請使用下列程式碼來建立 FileSystemObject 的執行個體：

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

這段範例程式碼說明如何建立 FileSystemObject 的執行個體。

使用適當的方法

其次，使用 FileSystemObject 物件的適當方法。舉例來說，若要建立新的物件，請使用 CreateTextFile 或 CreateFolder (FSO 物件模型不支援建立或刪除磁碟機)。

若要刪除物件，請使用 FileSystemObject 物件的 DeleteFile 和 DeleteFolder 方法，或 File 和 Folder 物件的 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")

請勿對剛建立的物件使用「Get」方法，因為「Create」函數已經將物件代碼傳回該物件。舉例來說，如果您使用 CreateFolder 方法建立一個新的資料夾，請勿使用 GetFolder 方法 來存取它的屬性，例如 Name、Path 和 Size 等等。請為 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

存取物件的屬性

當您擁有物件的控制碼時，便可存取它的屬性。舉例來說，若要取得特定資料夾的名稱，請先 建立一個物件的執行個體，然後利用適當的方法 (在此例中為 GetFolder 方法，因為資料夾已經存在) 為它指定一個控制碼。

在 VBScript 中請使用下列程式碼為 GetFolder 方法指定一個控制碼：

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

您現在擁有 Folder 物件的控制碼了，所以可查看它的 Name 屬性。在 VBScript 中請使用下列程式碼來查看屬性：

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

若要查看檔案最後一次修改的時間，請使用下列的 VBScript 語法：

Dim fso, f1
Set fso = CreateObject("Scripting.FileSystemObject")
' 取得一個要查詢的File 物件。
fso.GetFile("c:\detlog.txt")   
' 列印訊息。
Response.Write "File last modified: " & f1.DateLastModified 

料夾的處理

Sub ShowFolderInfo()
   Dim fso, fldr, s
   ' 取出FileSystemObject的個體執行。
   Set fso = CreateObject("Scripting.FileSystemObject")
   ' 取出Drive 物件。
   Set fldr = fso.GetFolder("c:")
   ' 列印上層資料夾名稱。
   Response.Write "Parent folder name is: " & fldr & "<br>"
   ' 列印磁碟名稱。
   Response.Write "Contained on drive " & fldr.Drive & "<br>"
   ' 列印根檔案名稱。
   If fldr.IsRootFolder = True Then
      Response.Write "This is the root folder." & ""<br>"<br>"
   Else
      Response.Write "This folder isn't a root folder." & "<br><br>" 
   End If
   ' 用FileSystemObject 物件建立一個新的資料夾。
   fso.CreateFolder ("C:\Bogus")
   Response.Write "Created folder C:\Bogus" & "<br>"
   ' 列印這個資料夾的base name 。
   Response.Write "Basename = " & fso.GetBaseName("c:\bogus") & "<br>"
   ' 刪除新建立的資料夾。
   fso.DeleteFolder ("C:\Bogus")
   Response.Write "Deleted folder C:\Bogus" & "<br>"
End Sub

檔案的處理
檔案的處理分為兩大類： 
建立、加入或移除資料，以及讀取檔案 
移動、複製和刪除檔案 
建立檔案
有三種方法可建立空白的文字檔 (有時稱為「文字資料流」)。
第一種方法是使用 CreateTextFile 方法。下面的範例說明如何使用此種方法在 VBScript 中建立文字檔： 
Dim fso, f1
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile("c:\testfile.txt", True)
建立文字檔的第二種方法是使用設定 ForWriting 旗標之 FileSystemObject 物 件的 OpenTextFile 方法。在 VBScript 中的程式碼就如下面的範例所示： 
Dim fso, ts
Const ForWriting = 2
Set fso = CreateObject("Scripting. FileSystemObject")
Set ts = fso.OpenTextFile("c:\test.txt", ForWriting, True)
 
建立文字檔的第三種方法是使用設定 ForWriting 旗標的 OpenAsTextStream 方法。採用此種方法時，請在 VBScript 中使用下列程式碼：
Dim fso, f1, ts
Const ForWriting = 2
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile ("c:\test1.txt")
Set f1 = fso.GetFile("c:\test1.txt")
Set ts = f1.OpenAsTextStream(ForWriting, True)
將資料加入檔案中
建立好文字檔後，可依下列三個步驟將資料加入檔案：
開啟文字檔。 
寫入資料。 
關閉檔案。 
若要開啟現有的檔案，請使用 FileSystemObject 物件的 OpenTextFile 方法或 File 物件的 OpenAsTextStream 方法。
若要將資料寫入已開啟的文字檔中，請依下表列出的不同任務使用 TextStream 物件的 Write、WriteLine 或 WriteBlankLines 方法。
任務
方法
將資料寫入開啟的文字檔，但不加入換行字元。
Write
將資料寫入開啟的文字檔，並加入換行字元。
WriteLine
在開啟的文字檔中寫入一或多行空白行。
WriteBlankLines

若要關閉開啟的檔案，請使用 TextStream 物件的 Close 方法。
備註  換行字元包含一或多個字元 (視 作業系統而定)，可讓游標移到下一行的開頭 (復位字元/跳行)。請注意，某些字串的結尾可能 已經包含這類非列印字元。
下面的 VBScript 範例說明如何開啟檔案、使用三種寫入方法將資料加入檔案，以及關閉檔案： 
Sub CreateFile()
   Dim fso, tf
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set tf = fso.CreateTextFile("c:\testfile.txt", True)
   ' Write a line with a newline character.
   tf.WriteLine("Testing 1, 2, 3.") 
   ' Write three newline characters to the file.        
   tf.WriteBlankLines(3) 
   ' Write a line.
   tf.Write ("This is a test.") 
   tf.Close
End Sub
讀取檔案
若要從文字檔中讀取資料，請使用 TextStream 物件的 Read、ReadLine 或 ReadAll 方法。下表說明不同的任務應使用何種方法。
任務
方法
從檔案中讀取特定數量的字元。
Read
讀取一整行 (不含換行字元)。
ReadLine
讀取文字檔的完整內容。
ReadAll

如果您使用 Read 或 ReadLine 方法，並想跳移到特定位置的資料，請使用 Skip 或 SkipLine 方法。各種讀取方法所取得的結果文字會存成字串，該字串 可在控制項中顯示，由字串函數剖析 (例如 Left、Right 和 Mid) 或加 以串連。
下面的 VBScript 範例說明如何開啟檔案、寫入檔案，以及讀取檔案：
Sub ReadFiles
   Dim fso, f1, ts, s
   Const ForReading = 1
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f1 = fso.CreateTextFile("c:\testfile.txt", True)
   ' 撰寫一行。
   Response.Write "Writing file <br>"
   f1.WriteLine "Hello World"
   f1.WriteBlankLines(1)
   f1.Close
   ' 讀取檔案內容。
   Response.Write "Reading file <br>"
   Set ts = fso.OpenTextFile("c:\testfile.txt", ForReading)
   s = ts.ReadLine
   Response.Write "File contents = '" & s & "'"
   ts.Close
End Sub
移動、複製和刪除檔案
下表說明 FSO 物件模型提供的兩種移動、複製和刪除檔案的方法。
任務
方法
移動檔案
File.Move 或 FileSystemObject.MoveFile
複製檔案
File.Copy 或 FileSystemObject.CopyFile
刪除檔案
File.Delete 或 FileSystemObject.DeleteFile

下面的 VBScript 範例在磁碟機 C 的根目錄建立一個文字檔，在檔案中寫入一些資訊，將檔案 移到 \tmp 目錄，將檔案複製到 \temp 目錄，然後再從這兩個目錄中刪除檔案。
若要執行下列範例，請在磁碟機 C: 的根目錄建立 \tmp 和 \temp 目錄：
Sub ManipFiles
   Dim fso, f1, f2, s
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f1 = fso.CreateTextFile("c:\testfile.txt", True)
   Response.Write "Writing file <br>"
   ' 撰寫一行。
   f1.Write ("This is a test.")
   ' 關閉寫入的檔案。
   f1.Close
   Response.Write "Moving file to c:\tmp <br>"
   ' 在C:\的根目錄底下取得一個控制碼。
   Set f2 = fso.GetFile("c:\testfile.txt")
   ' 移動檔案到\tmp 目錄。
   f2.Move ("c:\tmp\testfile.txt")
   Response.Write "Copying file to c:\temp <br>"
   ' 複製檔案到\temp。
   f2.Copy ("c:\temp\testfile.txt")
   Response.Write "Deleting files <br>"
   ' 取得到檔案目前位置的控制碼。
   Set f2 = fso.GetFile("c:\tmp\testfile.txt")
   Set f3 = fso.GetFile("c:\temp\testfile.txt")
   ' 刪除檔案。
   f2.Delete
   f3.Delete
   Response.Write "All done!"
End Sub

相关软件：