20-2 媬Bz

我們也可以使用 FileSystemObject 物件的 GetFolder() 方法，抓出目錄物件，然後列舉此目錄物件的屬性。例如：

Example（fileAccess/dirProp01.asp）：

此範例的原始碼如下：

原始檔（fileAccess/dirProp01.asp）：（灰色區域按兩下即可拷貝）
<%@language=JScript%>
<% title="列出目錄的屬性" %>
<!--#include file="../head.inc"-->
<hr>

<%
fso = Server.CreateObject("Scripting.FileSystemObject");
fileName = Request.ServerVariables("SCRIPT_NAME");
absPath = Server.MapPath(fileName);
parentDir = fso.GetParentFolderName(absPath);
dir = fso.GetFolder(parentDir);
methods = [
	"Attributes",
	"DateCreated",
	"DateLastAccessed",
	"DateLastModified",
	"Drive",
	"IsRootFolder",
	"Name",
	"ParentFolder",
	"Path",
	"ShortName",
	"ShortPath",
	"Size",
//	"SubFolders",
	"Type"];
%>
<h3 align=center>dir = <%=dir%></h3>
<table border=1 align=center>
<% for (i=0; i<methods.length; i++){
	cmd = "dir." + methods[i]; %>
	<tr><td><%=cmd%><td>&nbsp;<font color=green><%=eval(cmd)%></font>
<%}%>
</table>

<hr>
<!--#include file="../foot.inc"-->

另外在某些情況下，我們希望能開放目錄的瀏覽權限，讓使用者看到目錄裏的檔案名稱，這也可以用 ASP 程式碼來達成。事實上，「開放目錄瀏覽權限」的功能可經由 Web 伺服器的管理系統來達成，但是要修改此選項，你必須具有 Administrator 權限。我們的範例是直接使用 ASP 程式碼來達成此功能，因此不需要修改伺服器的設定。請見此範例：

Example（fileAccess/fileList01.asp）：

此範例的原始碼如下：

原始檔（fileAccess/fileList01.asp）：（灰色區域按兩下即可拷貝）
<%@language=JScript%>
<% title="列出目錄中的內容" %>
<!--#include file="../head.inc"-->
<hr>

<%
fso = Server.CreateObject("Scripting.FileSystemObject");
fullPath = Server.MapPath(".");
fd = fso.GetFolder(fullPath);
%>

<h3 align=center>
Contents of <%=fullPath%>:
</h3>
<table border=1 align=center>
<tr>
<th colspan=3>File Listing</th>
<tr>
<th>File name</th><th>Size (Bytes)</th><th>Last modified</th>
<%
var fileList=new Enumerator(fd.files);
for (fileList.moveFirst(); !fileList.atEnd(); fileList.moveNext()){
	Response.Write("<tr align=center>");
	Response.Write("<td><a href=\"" + fileList.item().name + "\">" + fileList.item().name + "</a></td>");
	Response.Write("<td>" + fileList.item().size + "</td>");
	Response.Write("<td>" + fileList.item().DateLastModified + "</td>");
	Response.Write("</tr>");
}
%>
</table>
<br>
<table border=1 align=center>
<tr>
<th colspan=3>Directory Listing</th>
<tr>
<tr>
<th>Folder name</th><th>Size (Bytes)</th><th>Last modified</th>
<%
var dirList=new Enumerator(fd.SubFolders);
for (dirList.moveFirst(); !dirList.atEnd(); dirList.moveNext()){
	Response.Write("<tr align=center>");
	Response.Write("<td><a href=\"" + dirList.item().name + "\">" + dirList.item().name + "</a></td>");
	Response.Write("<td>" + dirList.item().size + "</td>");
	Response.Write("<td>" + dirList.item().DateLastModified + "</td>");
	Response.Write("</tr>");
}
%>
</table>

<hr>
<!--#include file="../foot.inc"-->

若在伺服器預設此檔案為目錄中的主文件，則當使用者連結到目錄時，會自動開啟此檔案，使用者就會看到所有目錄內容的列表。

有關於其他檔案與目錄處理的功能，可從微軟公司的技術文件查到相關資料。我們可以建立及刪除目錄，可見此範例：

Example（fileAccess/folderCreate01.asp）：

此範例的原始碼如下：

原始檔（fileAccess/folderCreate01.asp）：（灰色區域按兩下即可拷貝）
<%@language=JScript%>
<% title="建立與刪除目錄" %>
<!--#include file="../head.inc"-->
<hr>

<%
// 取得FileSystemObject的個體執行。
fso = new ActiveXObject("Scripting.FileSystemObject");
// 取得Drive 物件。
fldr = fso.GetFolder("c:");
// 列印預設資料夾名稱。
Response.Write("預設資料夾名稱是：" + fldr + "<br>");
// 列印磁碟名稱。
Response.Write("磁碟機名稱：" + fldr.Drive + "<br>");
// 列印根檔案名稱。
if (fldr.IsRootFolder)
	Response.Write("這是根目錄！");
else
	Response.Write("這不是根目錄！");

Response.Write("<br><br>");
// 建立一個資料夾 
fso.CreateFolder ("C:\\Bogus");
Response.Write("建立資料夾：C:\\Bogus" + "<br>");
// 列印資料夾的基底名稱。
Response.Write("Basename = " + fso.GetBaseName("c:\\bogus") + "<br>");
// 刪除資料夾。
fso.DeleteFolder ("C:\\Bogus");
Response.Write("刪除資料夾：C:\\Bogus" + "<br>");
%>

<hr>
<!--#include file="../foot.inc"-->

我們可以使用 GetSpecialFolder() 函式來取用特殊的目錄，對於不同的輸入參數，會回傳不同的特殊目錄，列表如下：

輸入參數值回傳目錄典型值
0Windows 資料夾，包含由 Windows 作業系統所安裝的檔案C:\WINDOWS
1System 資料夾，包含程式庫、字型和週邊設備驅動程式C:\WINDOWS\system32
2暫存資料夾，是用來儲存暫存檔。它的路徑設在 TMP 環境變數中C:\WINDOWS\Temp

GetSpecialFolder() 的使用範例如下：

Example（fileAccess/getSpecialFolder01.asp）：

此範例的原始碼如下：

原始檔（fileAccess/getSpecialFolder01.asp）：（灰色區域按兩下即可拷貝）
<%@language=JScript%>
<% title="取得特殊目錄" %>
<!--#include file="../head.inc"-->
<hr>

<%
fso = new ActiveXObject("Scripting.FileSystemObject");
windowsFolder = fso.GetSpecialFolder(0);	// Windows 資料夾
systemFolder = fso.GetSpecialFolder(1);		// System 資料夾
temporaryFolder = fso.GetSpecialFolder(2);	// 暫存資料夾
Response.Write("windowdsFolder = " + windowsFolder.Path + "<br>");
Response.Write("systemFolder = " + systemFolder.Path + "<br>");
Response.Write("temporaryFolder = " + temporaryFolder.Path + "<br>");
%>

<hr>
<!--#include file="../foot.inc"-->

由時候在程式處理過程中，需要寫入一個暫存檔案，此時我們就可以使用 GetSpecialFolder(2) 來取得系統預設的暫存資料夾，並用 GetTempName() 來取得暫存檔案名稱，可見此範例：

Example（fileAccess/getSpecialFolder02.asp）：

當你重新載入此網頁時，將會發覺每次暫存檔案名稱都會不同，因此不會蓋掉原有的檔案名稱。你可以到此範例網頁所印出的暫存檔案路徑，看看此檔案內容是否為「Hello World」。此範例的原始碼如下：

原始檔（fileAccess/getSpecialFolder02.asp）：（灰色區域按兩下即可拷貝）
<%@language=JScript%>
<% title="寫入暫存檔案" %>
<!--#include file="../head.inc"-->
<hr>

<%
fso = new ActiveXObject("Scripting.FileSystemObject");
tempFile = fso.GetTempName();
Response.Write("暫存檔案名稱 = " + tempFile + "<br>");
tempDir = fso.GetSpecialFolder(2);
Response.Write("暫存檔案路徑 = " + tempDir.Path + "\\" + tempFile + "<br>");
fid = tempDir.CreateTextFile(tempFile);
fid.writeline("Hello World");
fid.close();
Response.Write("我們已經在暫存檔案寫入 \"Hello World\"！<br>");
%>

<hr>
<!--#include file="../foot.inc"-->

JScript 程式設計與應用：用於伺服器端的 ASP 環境