|
1． Folder對象
Driver對象的RootFolder屬性返回一個Folder對象，通過該對象可訪問這個驅動器內的所有的內容。可以使用這個Folder對象的屬性和方法遍歷驅動器上的目錄，并得到該文件夾和其他文件夾的屬性。
(1) Folder對象的屬性
Folder對象提供一組屬性，可用這些屬性得到關于當前文件夾的更多信息，也可以改變該文件夾的名稱。其屬性及說明如表5-9所示：
表5-9 Folder 對象的屬性及說明
屬 性
說 明
Attributes
返回文件夾的屬性。可以是下列值中的一個或其組合：Normal(0)、ReadOnly(1)、Hidden(2)、System(4)、Volume(名稱)(8)、Directory（文件夾）(16)、Archive(32)、Alias(64)和Compressed(128)。例如，一個隱藏的只讀文件，Attributes的值為3
DateCreated
返回該文件夾的創建日期和時間
DateLastAccessed
返回最后一次訪問該文件夾的日期和時間
DateLastModified
返回最后一次修改該文件夾的日期和時間
Drive
返回該文件夾所在的驅動器的驅動器字母
Files
返回Folder對象包含的Files集合，表示該文件夾內所有的文件
IsRootFolder
返回一個布爾值說明該文件夾是否是當前驅動器的根文件夾
Name
設定或返回文件夾的名字
ParentFolder
返回該文件夾的父文件夾對應的Folder對象
Path
返回文件夾的絕對路徑，使用相應的長文件名
ShortName
返回DOS風格的8.3形式的文件夾名
ShortPath
返回DOS風格的8.3形式的文件夾的絕對路徑
Size
返回包含在該文件夾里所有文件和子文件夾的大小
SubFolers
返回該文件夾內包含的所有子文件夾對應的Folders集合，包括隱藏文件夾和系統文件夾
Type
如果可能，返回一個文件夾的說明字符串（例如，“Recycle Bin”）
(2) 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屬性返回）內的指定文件夾。
下列程序遍歷了驅動器C根目錄內的所有文件夾，并顯示各個文件夾的有關信息。
VBScript程序如下：
'In VBScript:
' Create a FileSystemObject instance
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
' Get a reference to drive C
Set objDriveC = objFSO.GetDrive("C:")
' Get a reference to the root folder
Set objRoot = objDriveC.RootFolder
' Get a reference to the SubFolders collection
Set objFolders = objRoot.SubFolders
' Get a reference to the first folder in the SubFolders collection
For Each objFolder In objFolders
Set objFolder1 = objFolders.Item((objFolder.Name))
Exit For
Next
' Iterate through all the files in this folder
For Each objFile in objFolder1.Files
Response.Write "Name: " & objFile.Name & " "
Response.Write "ShortName: " & objFile.ShortName & " "
Response.Write "Size: " & objFile.Size & " bytes "
Response.Write "Type: " & objFile.Type & "<BR>"
Response.Write "Path: " & objFile.Path & " "
Response.Write "ShortPath: " & objFile.ShortPath & "<BR>"
Response.Write "Created: " & objFile.DateCreated & " "
Response.Write "LastModified: " & objFile.DateLastModified & "<P>"
Next
JScript程序如下：
//In JScript:
// Create a FileSystemObject instance
var objFSO = Server.CreateObject('Scripting.FileSystemObject');
// Get a reference to drive C
var objDriveC = objFSO.GetDrive('C:');
// Get a reference to the root folder
var objRoot = objDriveC.RootFolder;
// Get a reference to the first folder in the SubFolders collection
var colAllFolders = new Enumerator(objRoot.SubFolders);
var objFolder1 = colAllFolders.item();
// Get a reference to the Files collection for this folder
var colFiles = new Enumerator(objFolder1.Files);
// Iterate through all the files in this collection
for (; !colFiles.atEnd(); colFiles.moveNext()) {
objFile = colFiles.item()
Response.Write('Name: ' + objFile.Name + ' ');
Response.Write('ShortName: ' + objFile.ShortName + ' ');
Response.Write('Size: ' + objFile.Size + ' bytes ');
Response.Write('Type: ' + objFile.Type + '<BR>');
Response.Write('Path: ' + objFile.Path + ' ');
Response.Write('ShortPath: ' + objFile.ShortPath + '<BR>');
Response.Write('Created: ' + objFile.DateCreated + ' ');
Response.Write('Accessed: ' + objFile.DateLastAccessed + ' ');
Response.Write('Modified: ' + objFile.DateLastModified + '<P>');
}
該VBScript程序在服務器上運行時的結果如圖5-12所示。該頁面為folderscollection_vb.asp，來自本書提供的示例文件。
圖5-12 Folders集合的內容
(3) 使用特殊文件夾
GetSpecialFolder是FileSystemObject對象的方法之一，它返回計算機上三個“特殊文件夾”對應的Folder對象：
· WindowsFolder：%Windows%目錄，缺省為WinNT（或Windows，在非NT/2000計算機上）目錄。
· SystemFolder：%System%目錄，缺省為WinNT\System32（或Windows\System，在非NT/2000計算機上）目錄。
· TemporaryFolder：%Temp%目錄，缺省為WinNT\Temp（或Windows\Temp，在非NT/2000計算機上）目錄。
為得到對特殊文件夾的引用，我們提供相應的預定義常數作為GetSpecialFolder方法的參數：
' In VBScript:
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetSpecialFolder(WindowsFolder)
Response.Write "GetSpecialFolder(WindowsFolder) returned:<BR>"
Response.Write "Path: " & objFolder.Path & "<BR>"
Response.Write "Type: " & objFolder.Type & "<P>"
Set objFolder = objFSO.GetSpecialFolder(SystemFolder)
Response.Write "GetSpecialFolder(SystemFolder) returned:<BR>"
Response.Write "Path: " & objFolder.Path & "<BR>"
Response.Write "Type: " & objFolder.Type & "<P>"
Set objFolder = objFSO.GetSpecialFolder(TemporaryFolder)
Response.Write "GetSpecialFolder(TemporaryFolder) returned:<BR>"
Response.Write "Path: " & objFolder.Path & "<BR>"
Response.Write "Type: " & objFolder.Type & "<P>"
或用JScript：
// In JScript:
var objFSO = Server.CreateObject('Scripting.FileSystemObject');
var objFolder = objFSO.GetSpecialFolder(WindowsFolder);
Response.Write('GetSpecialFolder(WindowsFolder) returned - ');
Response.Write('Path: ' + objFolder.Path + ' ');
Response.Write('Type: ' + objFolder.Type + '<BR>');
var objFolder = objFSO.GetSpecialFolder(SystemFolder);
Response.Write('GetSpecialFolder(SystemFolder) returned - ');
Response.Write('Path: ' + objFolder.Path + ' ');
Response.Write('Type: ' + objFolder.Type + '<BR>');
var objFolder = objFSO.GetSpecialFolder(TemporaryFolder);
Response.Write('GetSpecialFolder(TemporaryFolder) returned - ');
Response.Write('Path: ' + objFolder.Path + ' ');
Response.Write('Type: ' + objFolder.Type + '<BR>');
該VBScript程序在服務器上運行時的結果如圖5-13所示。該頁面名為specialfolder_vb.asp，來自本書提供的示例文件。
圖5-13 GetSpecialFolder方法的使用結果
2． File對象
File對象提供了對文件的屬性的訪問，通過它的方法能夠對文件進行操作。每個Folder對象提供了一個Files集合，包含文件夾中文件對應的File對象。還可以直接地從FileSystemObject對象中通過使用GetFile方法得到一個File對象引用。
(1) File對象的屬性
File對象有一系列的屬性，類似于Folder對象的屬性，如表5-11所示：
表5-11 File對象的屬性及說明
屬 性
說 明
Attributes
返回文件的屬性。可以是下列值中的一個或其組合：Normal(0)、ReadOnly(1)、Hidden(2)、System(4)、Volume(名稱)(9)、Directory(文件夾)(16)、Archive(32)、Alias(64)和Compressed(128)
DateCreated
返回該文件夾的創建日期和時間
DateLastAccessed
返回最后一次訪問該文件的日期和時間
DateLastModified
返回最后一次修改該文件的日期和時間
Drive
返回該文件所在的驅動器的Drive對象
Name
設定或返回文件的名字
ParentFolder
返回該文件的父文件夾的Folder對象
Path
返回文件的絕對路徑，可使用長文件名
ShortName
返回DOS風格的8.3形式的文件名
ShortPath
返回DOS風格的8.3形式的文件絕對路徑
Size
返回該文件的大小（字節）
Type
如果可能，返回一個文件類型的說明字符串（例如：“Text Document”表示.txt文件）
(2) File對象的方法
同樣類似于Folder對象，File對象的方法允許復制、刪除以及移動文件。它也有一個使用文本流打開文件的方法。File對象的方法及說明如表5-12所示：
表5-12 File對象的方法及說明
方 法
說 明
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
OpenAsTextStream
(iomode,format)
打開指定文件并且返回一個TextStream對象，用于文件的讀、寫或追加。iomode參數指定了要求的訪問類型，允許值是ForReading(1) (缺省值)、ForWrite(2)、ForAppending(8)。format參數說明了讀、寫文件的數據格式。允許值是TristateFalse(0)（缺省），說明用ASCII數據格式；TristateTrue(-1)說明用Unicode數據格式；TristateUseDefault(-2)說明使用系統缺省格式
因此給定一個File對象后，可以使用ParentFolder屬性得到包含該文件的Folder對象的引用，用來在文件系統中導航。甚至可以用Drive屬性獲得相應的Drive對象的引用，并得到各種Folder對象以及所包含的File對象。
另外，給定一個Folder對象以及對應的Files集合后，可以通過遍歷該集合檢查這一文件夾中的每個文件。還可以使用File對象的各種方法以一定方式處理該文件，如復制、移動或刪除。下面的代碼給出了C驅動器的第一個文件夾的文件列表：
' In VBScript:
' Create a FileSystemObject instance
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
' Get a reference to drive C
Set objDriveC = objFSO.GetDrive("C:")
' Get a reference to the root folder
Set objRoot = objDriveC.RootFolder
' Get a reference to the SubFolders collection
Set objFolders = objRoot.SubFolders
' Get a reference to the first folder in the SubFolders collection
For Each objFolder In objFolders
Set objFolder1 = objFolders.Item((objFolder.Name))
Exit For
Next
' Iterate through all the files in this folder
For Each objFile in objFolder1.Files
Response.Write "Name: " & objFile.Name & " "
Response.Write "ShortName: " & objFile.ShortName & " "
Response.Write "Size: " & objFile.Size & " bytes "
Response.Write "Type: " & objFile.Type & "<BR>"
Response.Write "Path: " & objFile.Path & " "
Response.Write "ShortPath: " & objFile.ShortPath & "<BR>"
Response.Write "Created: " & objFile.DateCreated & " "
Response.Write "LastModified: " & objFile.DateLastModified & "<P>"
Next
注意，不能使用數字索引來定位Folders或Files集合里的條目，因此必須使用For Each … Next語句遍歷該集合直到最初的條目，然后使用該條目的Name屬性。也不得不使用嵌套的圓括號強迫其作為值（字符串）傳送給該Folders集合的Item方法。
用下面的JScript程序可完成同樣的工作：
// In JScript:
// Create a FileSystemObject instance
var objFSO = Server.CreateObject('Scripting.FileSystemObject');
// Get a reference to drive C
var objDriveC = objFSO.GetDrive('C:');
// Get a reference to the root folder
var objRoot = objDriveC.RootFolder;
// Get a reference to the first folder in the SubFolders collection
var colAllFolders = new Enumerator(objRoot.SubFolders);
var objFolder1 = colAllFolders.item();
// Get a reference to the Files collection for this folder
var colFiles = new Enumerator(objFolder1.Files);
// Iterate through all the files in this collection
for (; !colFiles.atEnd(); colFiles.moveNext()) {
objFile = colFiles.item()
Response.Write('Name: ' + objFile.Name + ' ');
Response.Write('ShortName: ' + objFile.ShortName + ' ');
Response.Write('Size: ' + objFile.Size + ' bytes ');
Response.Write('Type: ' + objFile.Type + '<BR>');
Response.Write('Path: ' + objFile.Path + ' ');
Response.Write('ShortPath: ' + objFile.ShortPath + '<BR>');
Response.Write('Created: ' + objFile.DateCreated + ' ');
Response.Write('Accessed: ' + objFile.DateLastAccessed + ' ');
Response.Write('Modified: ' + objFile.DateLastModified + '<P>');
}
兩個程序的結果是相同的，如圖5-14所示。該頁面為filescollection_vb.asp，來自本書提供的示例文件。
圖5-14 File集合的內容
5.5 Scripting.TextStream對象
FileSystemObject、Folder和File對象的一些方法都與通過TextStream對象創建、讀取或寫入文件有關。
雖然TextStream對象定義為FileSystemObject對象的一個獨立的附屬對象，但我們不得不使用FileSystemObject對象或其附屬對象來創建一個TextStream對象并訪問磁盤文件的內容。
|
