File System Object

從 Visual Basic 的第一版至今，VB中有關文件的處理都是通過使用 Open 、Write以及其它一些相關的語句和函數來實現的。隨着軟件技術的不斷髮展，加上面向對象編程概念的日臻成熟，這些文件操作語句已經不能適應軟件不斷增加的複雜程度的需要了。因此，從VB6.0開始，微軟提出了一個全新的文件系統對象FSO。

不僅可以象使用傳統文件操作語句那樣實現文件的創建、改變、移動和刪除，而且可以檢測是否存在指定的文件夾，如果存在，那麼，這個文件夾又位於磁盤上的什麼位置。更令人高興的是FSO 對象模型還可以獲取關於文件和文件夾的信息，如名稱、創建日期或修改日期等以及系統中使用的驅動器的信息，如驅動器的種類是CD－ROM還是可移動磁盤，當前磁盤的剩餘空間還有多少。而以前要獲取這些信息必須通過調用Windows API函數集中的相應函數才能實現。

在Scripting 類型庫 （Scrrun.Dll）中，它同時包含了Drive、Folder、File、FileSystemObject和TextStream五個對象。其中Drive用來收集驅動器的信息，如可用磁盤空間或驅動器的類型；Folder用於創建、刪除或移動文件夾，同時可以進行向系統查詢文件夾的路徑等操作；File的基本操作和Folder基本相同，所不同的是Files的操作主要是針對磁盤上的文件進行的；FileSystemObject是FSO對象模型中最主要對象，它提供了一套完整的可用於創建、刪除文件和文件夾，收集驅動器、文件夾、文件相關信息的方法。需要注意的是，FSO對象模型提供的方法是冗餘的，也就是説在實際使用中，FSO對象模型中包含的不同對象的不同方法進行的卻是同樣的操作，而且FileSystemObject對象的方法直接作用於其餘對象，所以在後面的文章中並沒有單獨提到FileSystemObject對象，千萬不要以為沒有提到就不重要，事實上FileSystemObject對象在整個FSO對象模型中無處不在；最後的TextStream對象則是用來完成對文件的讀寫操作的。

在初步瞭解了FSO對象模型之後，下面我們通過實際的代碼對不同的對象進行進一步的闡述。

由於FSO對象包含在Scripting 類型庫 (Scrrun.Dll）中，所以在使用前首先需要在在工程中引用這個文件，單擊“工程”，“引用”，然後在“引用”對話框中選中“Microsoft Scripting Runtime”前的複選框，然後單擊“確定”。

要創建FSO對象可以採用兩種方法，一種是將一個變量聲明為FSO對象類型：Dim fsoTest As New FileSystemObject；另一種是通過CreateObject方法創建一個FSO 對象：Set fsoTest = CreateObject(“Scripting.FileSystemObject")。在實際使用中具體採用哪種聲明方法，可根據個人的使用習慣而定。

完成了FSO對象模型的創建之後，就可以利用創建的對象模型的方法訪問下屬各個對象的屬性來獲取所需信息或進行相關操作了，具體的方法在下面結合各個對象分別講述。

上面已經提到Drive對象是用來獲取當前系統中各個驅動器的信息的。由於Drive對象沒有方法，其應用都是通過屬性表現出來的，所以我們必須熟悉Drive對象的屬性：

AvailableSpace：返回在指定的驅動器或網絡共享上的用户可用的空間容量。

DriveLetter：返回某個指定本地驅動器或網絡驅動器的字母，這個屬性是隻讀的。

DriveType：返回指定驅動器的磁盤類型。

FileSystem：返回指定驅動器使用的文件系統類型。

FreeSpace：返回指定驅動器上或共享驅動器可用的磁盤空間，這個屬性是隻讀的。

IsReady：確定指定的驅動器是否準備好。

Path ：返回指定文件、文件夾、或驅動器的路徑。

RootFolder：返回一個 Folder 對象，該對象表示一個指定驅動器的根文件夾。只讀屬性。

SerialNumber：返回用於標識磁盤卷標的十進制序列號。

ShareName：返回指定驅動器的網絡共享名

TotalSize：以字節為單位，返回驅動器或網絡共享的總空間大小。

VolumeName：設置或返回指定驅動器的卷標名。

從上面的屬性可以看到Drive對象基本上包含了日常操作所需的全部的驅動器信息，因此在使用中是非常方便的。下面通過一個實例講述Drive對象的使用。首先在VB中建立一個工程，然後添加一個命令按鈕，將其Caption設置為“TestDrive”，然後在click事件中加入以下代碼：

Dim fsoTest As New FileSystemObject

Dim drv1 As Drive,sReturn As String

Set drv1 = fsoTest.GetDrive（“C:\")

sReturn = “Drive " & “C:\" & vbCrLf

sReturn = sReturn & “VolumeName" & drv1.VolumeName & vbCrLf

sReturn = sReturn & “Total Space: " & FormatNumber(drv1.TotalSize / 1024,0)

sReturn = sReturn & “Kb" & vbCrLf

sReturn = sReturn & “Free Space: " & FormatNumber(drv1.FreeSpace / 1024,0)

sReturn = sReturn &；“Kb" & vbCrLf

sReturn = sReturn &；“FileSystem:" & drv1.FileSystem & vbCrLf

MsgBox sReturn

其中GetDrive方法返回一個與指定路徑中的驅動器相對應的 Drive 對象。該方法的語法格式為object.GetDrive drivespec，object是一個FSO對象的名稱，drivespec用於指定驅動器的名稱。

按F5運行上述代碼，按下TestDrive按鈕就會彈出一個消息框顯示C盤的信息。

在FSO 對象模型中，提供了豐富的有關文件夾操作的方法，這些方法分別是：

FileSystemObject對象有關文件夾的方法：

CreateFolder：創建一個文件夾。

DeleteFolder：刪除一個文件夾。

MoveFolder：移動一個文件夾。

CopyFolder：複製一個文件夾。

FolderExists：查找一個文件夾是否在驅動器上。

GetFolder：獲得已有Folder對象的一個實例。

GetParentFolderName：找出一個文件夾的父文件夾的名稱。

GetSpecialFolder：找出系統文件夾的路徑。

Folder對象的方法：

Delete ：刪除一個文件夾。

Move ：移動一個文件夾。

Copy：複製一個文件夾。

Name：檢索文件夾的名稱。

在此需要強調一點，前面我們曾經提到過FSO對象模型包含的方法是冗餘的，所以Folder對象的Delete、Move、Copy方法和FileSystemObject對象的DeleteFolder、MoveFolder、CopyFolder方法實際上是相同的，因此在實際使用中可以任選其中的一種。和Drive對象一樣，下面通過實例演示Folder對象的應用。在VB下新建一個工程，然後在上面添加三個命令按鈕，然後在Form1的通用部分加入以下代碼：

Option Explicit

Dim fsoTest As New FileSystemObject

Dim folder1 As Folder

並且分別在三個命令按鈕的click事件輸入以下代碼：

Private Sub CmdCreate_Click()

' 獲取 Folder 對象。

Set folder1 = fsoTest.GetFolder（“C:")

'創建文件夾

fsoTest.CreateFolder （“C:\Test")

MsgBox “folder C:\Test has created"

End Sub

Private Sub CmdDelete_Click()

' 獲取 Drive 對象。

Set folder1 = fsoTest.GetFolder（“C:")

'刪除文件夾

fsoTest.DeleteFolder （“C:\Test")

MsgBox“folder C:\Test has deleted"

End Sub

Private Sub CmdGetPro_Click()

'獲取文件夾的有關信息

Dim sReturn As String

Set folder1 = fsoTest.GetFolder（“C:\Windows")

'sReturn = “The folder's Attributes is " & folder1.Attributes & vbCrLf

'獲取一次訪問的時間

sReturn = sReturn & “The folder's last access time is " & folder1.DateLastAccessed & vbCrLf

'獲取最後一次修改的時間

sReturn = sReturn & “The folder's last modify time is " & folder1.DateLastModified & vbCrLf

'獲取文件夾的大小

sReturn = sReturn & “The folder's size is " & FormatNumber(folder1.Size / 1024,0)

sReturn = sReturn & “Kb" & vbCrLf

'判斷文件或文件夾類型

sReturn = sReturn & “The type is " & folder1.Type & vbCrLf

MsgBox sReturn

End Sub

上述代碼中提到的CreateFolder方法的語法形式為object.CreateFolder（foldername）。foldername指定了要創建的文件夾的名稱，而DeleteFolder方法的語法形式為object.DeleteFolder folderspec[,force]，其中，folderspec用來指定要刪除的文件夾的名稱，force是一個可選的布爾型參數，如果希望刪除只讀屬性的文件夾則將該值設為TRUE，默認為FALSE。至於代碼中用到的 Folder 對象的屬性限於篇幅，就不詳細介紹了，讀者可參考VB文檔中的相關內容。

由於有關File對象的複製，刪除，移動等操作和Folder對象類似，所以這部分內容就不再重複。這裏主要講述利用File對象和TextStream對象操作文本文件。

通常對文本文件的操作包括在文本文件中創建數據，在文本文件中添加數據，刪除文本文件的數據等操作。這些操作都可以通過File對象和FileSystemObject對象的相關方法完成。不過在使用之前，首先要創建一個文本文件，這可以通過三種方法完成。一種方法是使用FileSystemObject對象的 CreateTextFile 方法。要創建一個空文本文件，可以用以下語句：

Dim fsoTest As New FileSystemObject,fil1 As File

Set fil 1= fsoTest.CreateTextFile（“c:\testfile.txt",True)

第二種方法是使用 FileSystemObject 對象帶 ForWriting 標誌設置的 OpenTextFile 方法，

Dim fsoTest As New FileSystemObject,ts1 As New TextStream

Set ts1 = fsoTest.OpenTextFile（“c:\testfile.txt",ForWriting)

第三種方法是使用File對象的帶 ForWriting 標誌設置的OpenAsTextStream方法：

Dim fsoTest As New FileSystemObject,fil 1As File,ts 1As TextStream

Set fsoTest = CreateObject（“Scripting.FileSystemObject")

fsoTest.CreateTextFile （“c:\testfile.txt")

Set fil1 = fsoTest.GetFile（“c:\testfile.txt")

Set ts1 = fil1.OpenAsTextStream(ForWriting)

其中CreateTextFile方法的第一個參數用來指定，第二個參數用來指定如果磁盤上已經存在要創建的文件是否覆蓋，TRUE表示覆蓋，FALSE表示不覆蓋，省略表示不覆蓋；OpenTextFile方法的第一個參數確定要打開的文本文件，第二個參數表示對該文件進行寫操作；OpenAsTextStream方法的參數和OpenTextFile方法的第二個參數含義相同。

在創建了寫入數據的文本之後就可以利用TextStream 對象的 Write 或 WriteLine 方法了，它們之間的區別在於 WriteLine 在指定的字符串末尾添加換行符，而Write方法沒有。如果想要向文本文件中添加一個空行，可以使用WriteBlankLines方法。在完成寫的動作之後，用Close方法關閉打開的文本文件。如果要讀取一個存在的文本文件的內容，就要用到 TextStream 對象的 Read、 ReadLine 或ReadAll方法；這些方法的區別是 Read：從一個文件中讀取指定數量的字符 ；ReadLine：讀取一整行（緊跟，但不包括，換行符）； ReadAll ：讀取一個文本文件的所有內容。下面在一個VB的工程中演示上述的效果。

在VB中新建一個工程，然後在Form1上添加兩個命令按鈕，然後輸入以下代碼：

Private Sub CmdRead_Click()

Dim fsoTest As New FileSystemObject,file1 As File,ts As TextStream,s As String

Set file1 = fsoTest.GetFile（“C:\testfile.txt")

Set ts = file1.OpenAsTextStream(ForReading)

'讀取一行

s = ts.ReadLine

MsgBox s

ts.Close

End Sub

Private Sub CmdWrite_Click()

Dim txtfile As File,ts As TextStream

Set txtfile = fsoTest.GetFile（“c:\testfile.txt")

Set ts = txtfile.OpenAsTextStream(ForWriting)

'使用Write方法寫入一行。

ts.Write （“This is only a Test")

' 寫入一行帶有換行符的文本。

ts.WriteLine （“Testing 1,2,3.")

' 向文件中寫入三個換行符。

ts.WriteBlankLines ⑶

ts.Close

End Sub

在這裏我們假設已經在磁盤上建立了一個名為testfile.txt的文件。在按下F5運行時，先單擊Write寫入數據，然後按下Read讀取數據。

在代碼內操作文本文件、文件夾及驅動器。它是腳本運行期庫提供的對象之一，對於服務器ASP頁面內的VBScript和JScript都有效。如果頁面的擴展名為.hta（表示它們是HTA的一部分），它也可用在客户端的IE 5中。本節僅討論在服務器上的ASP腳本如何使用FileSystemObject對象。

超級文本應用程序（HTA）由指定的"受信任的"頁面組成，在頁面的；段裏包含；元素。例如：

這些頁面可以使用客户端腳本引擎中的一些不常用特性，這些特性中有FileSystemObject對象和TextStream對象。關於超級文本應用程序的更多信息，請訪問Microsoft Workshop網站。

可以使用下面的程序創建一個FileSystemObject對象實例：

' In VBScript:

Dim objMyFSO

Set objMyFSO = Server.CreateObject("Scripting.FileSystemObject")

// In JScript:

var objMyFSO = Server.CreateObject('Scripting.FileSystemObject');

PROGID="Scripting.FileSystemObject">

在ASP頁面裏，增加一個對於FileSystemObject類型庫的引用是非常有用的。這允許使用它直接定義的內置常數，不用像過去那樣用數字等效表達式代替。整個腳本運行期庫的類型庫可以增加到任何ASP頁面中，代碼如下：

；如果你是在另一個目錄下安裝Windows，必須編輯FILE的屬性值。

FileSystemObject對象提供一個屬性和一系列方法，可用它們來操縱FileSystemObject對象實現的一些從屬對象。這裏提供了全部的內容概要，然後介紹每一個從屬對象。

1． FileSystemObject的屬性

FileSystemObject對象只有一個屬性，它用於得到當前機器上的所有有效驅動器的列表，如表5-4所示：

2． FileSystemObject的方法

FileSystemObject對象提供了使用從屬對象的一系列方法，從屬對象包括Drive、Folder和File等對象。它也實現了用於TextStream對象的兩個方法：CreateTextFile和OpenTextFile。根據所使用的對象的類型，將方法劃分為三類。

⑴ 與驅動器有關的方法

與驅動器有關的方法如表5-5所示：

⑵ 與文件夾有關的方法

與文件夾有關的方法如表5-6所示：

表5-6 與文件夾有關的方法及説明方 法説 明BuildPath(path,name) 在已有的路徑path上增添名字為name的文件或文件夾，如果需要，則增添路徑分隔符'' CopyFolder(source,destination,overwrite) 從指定的源文件夾source（可以包含通配符）中複製一個或多個文件夾到指定的目標文件夾destination，包含了源文件夾中的所有文件。如果source包含通配符或destination末尾是路徑分隔符（''），那麼認為destination是要放置源文件夾的拷貝的文件夾。否則的話，認為destination是要創建的新文件夾的路徑名。如果destination文件夾已經存在且overwrite參數設置為False，將產生錯誤，缺省的overwrite參數是True CreateFolder(foldername) 創建一個路徑名為foldername的文件夾。如果foldername已經存在將產生錯誤 DeleteFolder(folderspec,force) 刪除由folderspec指定的一個或多個文件夾（可以在路徑的最後部分包含通過配符）及文件夾中的所有內容。如果可選的force參數設置為true，那麼即使文件夾包含的文件具有隻讀屬性，也將刪除該文件夾。缺省的force參數是False FolderExist(folderspec）如果folderspec指定的文件夾存在則返回True，否則返回False。folderspec參數可以包含文件夾的絕對或相對路徑，或者僅僅是當前文件夾中看到的文件夾名 GetAbsolutePathName(pathspec) 返回明確指定文件夾的路徑，其中要考慮到當前文件夾的路徑。例如，如果當前文件夾是"c:docssales"，而pathspec是"jan"，返回的字符是"c:docssalesjan"。通配符、".."和"\"路徑操作符都是可以接受的 GetFolder(folderspec) 返回folderspec指定的文件夾對應的Folder對象。folderspec可以是文件夾的相對的或絕對的路徑 GetParentFolderName(pathspec) 返回pathspec文件或文件夾的上一級文件夾。不檢驗該文件夾是否存在 GetSpecialfolder(folderspec) 返回一個特定的Windows文件夾相對應的Folder對象。參數folderspec的允許值是WindowsFolder(0）、SystemFolder⑴和TemporaryFolder⑵ MoveFolder(source,destination) 將source指定的一個或多個文件夾移動到destination指定的文件夾。在source裏可以包含通配符，但在destination中不行。如果source包含通配符或destination末尾是路徑分隔符（''），則認為destination是要放置源文件夾的文件夾，否則認為它是一個新文件夾的完整路徑和名字。如果目的文件夾destination已經存在則產生錯誤 　⑶ 與文件有關的方法 　表5-7：與文件有關的方法方 法説 明CopyFile(source,destination，　overwrite）將source（可包含通配符）指定的一個或多個文件複製到指定的目標文件夾destination。如果source包含通配符或destination末尾是路徑分隔符（''），那麼認為destination是文件夾。否則認為destination為一新文件的完全路徑和名稱。如果目標文件夾已經存在且overwrite參數設置為False，將產生錯誤。缺省的overwrite參數是True CreateTextFile(filename,overwrite，　unicode) 用指定的文件名filename在磁盤上創建一個新的文本文件，並返回與其對應的TextStream對象，如果可選的overwrite參數設置為True，則覆蓋同一路徑下已有的同名文件。缺省的overwrite參數是False。如果可選的unicode參數設置為True，則該文件的內容將存儲為Unicode文本，缺省的unicode參數是False DeleFile(filespec,force）刪除由filespec指定的一個或多個文件（可以在路徑的最後部分包含通配符）。如果可選的force參數設置為true，那麼也刪除具有隻讀屬性的文件。缺省的force參數是False FileExists(filespec）如果filespec指定的文件存在則返回True，否則返回False。filespec參數可以包含文件的絕對路徑或相對路徑，或者是當前文件夾中的文件名 GetBaseName(filespec）返回filespec指定的文件的名稱，即包含文件路徑但去掉了文件的擴展名 GetExtensionName(filespec）返回filespec指定的文件的擴展名 GetFile(filespec）返回filespec指定的文件所對應的File對象。可以指定文件的相對或絕對路徑 GetFileName(pathspec）返回pathspec指定的文件的路徑或文件名，如果沒有文件名就返回最後的文件夾名。不檢查該文件或文件夾是否存在 GetTempName（）返回一個隨機產生的文件名，用於完成運算所需的臨時文件或文件夾 MoveFile(source,destination）將source指定的一個或多個源文件移動到destination指定的目的文件夾。在source裏可以包含通配符，但destination不行。如果source包含通過配符或destination末尾是路徑分隔符（''），那麼認為destination是一文件夾。否則，認為destination是一新文件夾的完整路徑和名稱。如果目的文件夾已經存在則產生錯誤 OpenTextFile(filename,iomode,create，　format）創建一個名叫做filename的文件，或打開一個現有的名為filename的文件，並且返回一個與其相關的TextStream對象。filename參數可以包含絕對或相對路徑。iomode參數指定了所要求的訪問類型。允許的數值是ForReading⑴（缺省）、ForWriting⑵、ForAppending⑻。當寫入或追加到一個不存在的文件時，如果create參數設置為true，就將創建一個新文件。缺省的create參數是False。format參數説明對文件讀或寫的數據格式。允許數值是：TristatetFalse(0）（缺省），按照ASCII格式打開；TristatetTrue(-1），按照Unicode格式打開；TristateDefault(-2），用系統缺省格式打開 　Unicode文件使用兩個字節標識每個字符，取消了ASCII字符最多256個的限制。　5.4.2 使用驅動器 　下面是使用FileSystemObject對象的簡單例子，它使用DriveExists方法得到現有的驅動器字母的列表：　' In VBScript 　Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 　For intCode = 65 To 90 'ANSI codes for 'A' to 'Z' 　strLetter = Chr(intCode) 　If objFSO.DriveExists(strLetter) Then 　Response.Write "Found drive " & strLetter & ":

" 　End If 　Next 　1． Folder對象 　Driver對象的RootFolder屬性返回一個Folder對象，通過該對象可訪問這個驅動器內的所有的內容。可以使用這個Folder對象的屬性和方法遍歷驅動器上的目錄，並得到該文件夾和其他文件夾的屬性。　⑴ Folder對象的屬性 　Folder對象提供一組屬性，可用這些屬性得到關於當前文件夾的更多信息，也可以改變該文件夾的名稱。其屬性及説明如表5-9所示：　表5-9 Folder 對象的屬性及説明 　屬 性 　説 明 　Attributes 　返回文件夾的屬性。可以是下列值中的一個或其組合：Normal(0）、ReadOnly⑴、Hidden⑵、System⑷、Volume（名稱）⑻、Directory（文件夾）⒃、Archive(32）、Alias(64）和Compressed(128）。例如，一個隱藏的只讀文件，Attributes的值為3 　DateCreated 　返回該文件夾的創建日期和時間 　DateLastAccessed 　返回最後一次訪問該文件夾的日期和時間 　DateLastModified 　返回最後一次修改該文件夾的日期和時間 　Drive 　返回該文件夾所在的驅動器的驅動器字母 　Files 　返回Folder對象包含的Files集合，表示該文件夾內所有的文件 　IsRootFolder 　返回一個布爾值説明該文件夾是否是當前驅動器的根文件夾 　Name 　設定或返回文件夾的名字 　ParentFolder 　返回該文件夾的父文件夾對應的Folder對象 　Path 　返回文件夾的絕對路徑，使用相應的長文件名 　ShortName 　返回DOS風格的8.3形式的文件夾名

返回DOS風格的8.3形式的文件夾的絕對路徑

Size

返回包含在該文件夾裏所有文件和子文件夾的大小

SubFolers

返回該文件夾內包含的所有子文件夾對應的Folders集合，包括隱藏文件夾和系統文件夾

Type

如果可能，返回一個文件夾的説明字符串（例如，"Recycle Bin"）

⑵ Folder對象的方法

Folder對象提供一組可用於複製、刪除和移動當前文件夾的方法。這些方法的運行方式與FileSystemObject對象的CopyFolder、DeleFolder和MoveFolder方法相同，但這些方法不要求source參數，因為源文件就是這個文件夾。這些方法及説明如表5-10所示：

表5-10 Folder對象的方法及説明

Copy(destination,overwrite)

將這個文件夾及所有的內容複製到destination指定的文件夾。如果destination的末尾是路徑分隔符（''），那麼認為destination是放置拷貝文件夾的一個文件夾。否則認為destination是要創建的新文件夾的路徑和名字。如果目標文件夾已經存在且overwrite參數設置為False，將產生錯誤，缺省的overwrite參數是True

Delete(force)

刪除文件夾及裏面的所有內容。如果可選的force參數設置為True，即使文件夾設置為只讀或含有隻讀的文件，也將刪除該文件夾。缺省的force是False

Move(destination)

將文件夾及裏面所有的內容移動到destination指定的文件夾。如果destination的末尾是路徑分隔符（''），那麼認為destination是放置移動文件夾的一個文件夾。否則認為destination是一個新的文件夾的路徑和名字。如果目標文件夾已經存在，則出錯

CreateTextFile

（filename,overwrite,unicode)

用指定的文件名在文件夾內創建一個新的文本文件，並且返回一個相應的TextStream對象。如果可選的overwrite參數設置為True，將覆蓋任何已有的同名文件。缺省的overwrite參數是False。如果可選的unicode參數設置為True，文件的內容將存儲為unicode文本。缺省的unicode是False

在文件夾之間可以使用當前文件夾的ParentFolder屬性，返回到父目錄。當到達一個文件夾時，如果IsRootFolder屬性是True，就停下來。離開驅動器的根目錄，沿目錄樹向下，可遍歷或訪問在Folders集合（由當前文件夾的SubFolders屬性返回）內的指定文件夾。

通過上面的介紹，我們可以看到FSO對象模型的確在傳統的文件操作語句之外，提供了一種更方便，功能更強大的訪問文件的操作方法。不過，我們還需要注意到FSO對象模型還不完善，使用的FSO對象模型還不支持創建隨機文件或二進制文件。要創建隨機文件和二進制文件，仍然要使用帶 Random 或 Binary 標誌的 Open 命令。但從FSO對象模型的實際應用來看，我們仍然可以將FSO對象模型作為一種比較簡便的文件操作解決方案。

（注：上述代碼均在VB6.0 SR3)