FSO，正如UFO般令人激動、令人神往，當然更多的亦是讓人歡喜讓人憂。君不見某空間服務商廣告：100MB空間只要60RMB/年，支持數據庫，支持什么什么……一問不支持FSO，立馬泄氣。那FSO究竟是什么東西，它的力量又是如何巨大，其操作的原理又是怎的怎的呢？這次來個徹底的理解。 
　　首先，FSO是FileSystemObject的簡稱。當然也就是我們的俗稱FSO組件了，該組件可以用來處理驅動器、文件夾以及文件。
　　它可以檢測并顯示出系統驅動器的信息分配情況；還能夠創建、改變、移動和刪除文件夾，并能探測一些給定的文件夾是否存在，若存在，還能提取出該文件夾的信息，如名稱、被創建或最后一次修改的日期，等等。FSO還使得對文件的處理變得很容易。
　　一、fso.GetDrive
　　正如其它組件的建立一樣，FSO的引用也必須建立連接。

Set fso=Server.CreateObject("Scripting.FileSystemObject")
　　注意CreateObject的內部再也不是MSWC了，而是Scripting。
　　那下面就可以通過fso來處理驅動器了。比如fso.GetDriveName提取驅動器名，fso.GetDrive同樣提取標準驅動器名。比如：
　　1，fso.asp

<%Set fso=Server.CreateObject("Scripting.FileSystemObject")%>
<%=fso.GetDriveName("d:")%>
<br>
<%=fso.GetDrive("d:")%>
　　你會發現GetDriveName("d:")就是“d:”，而GetDrive("d:")則為標準的“D:”，所以我們一般這樣寫fso.GetDrive(fso.GetDriveName(drvPath))來提取某個具體的驅動盤。
　　二、drv.GetInfo
　　上面已經把某個特定的驅動器提取了，那接著是不是提取該驅動盤的具體信息。
　　2，drv.asp

<%Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set drv=fso.GetDrive(fso.GetDriveName("d:"))%>
該盤的空間大小：<%=drv.TotalSize%><br>
該盤的剩余空間大小：<%=drv.FreeSpace%>
　　以上只是提取的D盤驅動器的信息，來個通用的函數，繼續分別測試自己的驅動吧。
　　3，drvinfo.asp

<%
Function ShowDriveInfo(drvPath) 
Dim fso, drv, s 
Set fso = CreateObject("Scripting.FileSystemObject") 
Set drv = fso.GetDrive(fso.GetDriveName(drvPath)) 
s = "驅動盤" & drv & "的卷標是：" 
s = s & drv.VolumeName & "<br>" 
s = s & "總計空間：" & drv.TotalSize & "<br>" 
s = s & "剩余空間：" & drv.FreeSpace & "<br>" 
s = s & "文件類型：" & drv.DriveType & "<br>" 
s = s & "文件系統：" & drv.FileSystem 
Response.Write s
End Function%>
<%on error resume next
whatpath=request.form("path")
if whatpath<>"" then
ShowDriveInfo(whatpath)
end if%>
<form action="drvinfo.asp" method="post">
<input name="path">
<input type="submit">
</form>
　　其中的drv.TotalSize和drv.FreeSpace返回的是字節數，我們可以用FormatNumber()函數處理下。比如FormatNumber(Drive.TotalSize/1024,0)得到一眼就知磁盤多少G的值。
　　還有一個文件類型：drv.DriveType最多的時候是顯示數值“2”，其實“2”就表示的“硬盤驅動器”，“1”表示“軟盤驅動器”，“4”表示“光盤驅動器”……

[page_break]
　　下面就用一個程序遍歷顯示自己機器上所有驅動器的信息。
　　4，showall.asp

<%Function tran(Driver)
Select Case Driver
Case 0: tran="設備無法識別"
Case 1: tran="軟盤驅動器"
Case 2: tran="硬盤驅動器"
Case 3: tran="網絡硬盤驅動器"
Case 4: tran="光盤驅動器"
Case 5: tran="RAM虛擬磁盤"
End Select
End Functionset
 fso=Server.CreateObject("Scripting.FileSystemObject")%>
 <table border=1 width="100%">
 <tr>
 <td>盤符</td>
 <td>類型</td>
 <td>卷標</td>
 <td>總計大小</td>
 <td>可用空間</td>
 <td>文件系統</td>
 <td>序列號</td>
 <td>是否可用</td>
 <td>路徑</td>
 </tr>
 <%on error resume next
 For each drv in fso.Drives 
 Response.Write "<tr>" 
 Response.Write "<td>" & drv.DriveLetter & "</td>" 
 Response.write "<td>" & tran(drv.DriveType) & "</td>" 
 Response.write "<td>" & drv.VolumeName & "</td>" 
 Response.write "<td>" & FormatNumber(drv.TotalSize / 1024, 0)& "</td>" 
 Response.write "<td>" & FormatNumber(drv.Availablespace / 1024, 0) & "</td>" 
 Response.write "<td>" & drv.FileSystem & "</td>" 
 Response.write "<td>" & drv.SerialNumber & "</td>" 
 Response.write "<td>" & drv.IsReady & "</td>" 
 Response.write "<td>" & drv.Path & "</td>" 
 Response.Write "</tr>"Nextset fs=nothing%>
 </table>
　　演示
　　恩，是不是很神氣？那你可以對自己的機器調試，然后上傳到自己的空間去調試，你會發現服務商會你進行了些設置：）
　　當然更神的還在后面面，比如對文件夾，對文件的操作（包括添加、修改和刪除）。
　　ps:你對驅動器是不能輕易添加刪除的：）

[page_break]
操作完驅動器，接著就是來操作文件夾了。其中包括：提取文件夾信息、創建文件夾、刪除文件夾、復制文件夾、移動文件夾等。下面就具體來看。
　　一、fso.GetFolder
　　一看就明白，是提取文件夾了。那具體是提取哪個文件夾呢？后面肯定要跟一個文件夾的路徑。提取出來了再來顯示該文件夾相關信息呢？是不是有要具體提取下去。所以，看程序：
　　1，getfldr.asp

<%Set fso = CreateObject("Scripting.FileSystemObject")
Set fldr = fso.GetFolder("c:\Program Files")
Response.Write "父文件夾名字是：" & fldr & "<br>"
If fldr.IsRootFolder = True Then 
Response.Write "該文件夾是一根文件夾" & "<br>"
Else 
Response.Write "該文件夾不是根文件夾" & "<br>" 
End If
Response.Write "驅動器名字是：" & fldr.Drive & "<br>"%>
　　首先建立FSO組件的連接是必不可少的啦，然后Set fldr = fso.GetFolder("c:\Program Files")設定fldr對象被賦值，以作下面程序的引用。
　　fldr.IsRootFolder即為判斷該文件夾是否為一根文件夾，值為布爾值（true or false）；fldr.Drive則顯示該文件夾所在的驅動器號了。
　　二、fso.CreateFolder
　　下面比較讓人激動的是通過ASP建立文件夾了，你可以在你的權力范圍內任意位置建立任意文件夾。
　　2，creatfldr.asp

<%Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateFolder ("c:\cnbruce")
Response.Write "文件夾名為" & fso.GetBaseName("c:\cnbruce")%>
　　執行程序，應該發現C盤多出了cnbruce文件夾，fso.GetBaseName則是提取文件夾名。
　　三、fso.DeleteFolder
　　通過ASP可以建立了文件夾，則同樣可以刪除文件夾。
　　3，delfldr.asp

<%Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder("c:\cnbruce")
Response.Write "文件夾已刪除"%>
　　發現剛建立的cnbruce文件夾確實已被刪除。
　
　　那下面就采用一個通用程序來靈活應變下。
　　4，mainflr.asp

<%Sub CreateAFolder(file) 
Dim fso 
Set fso = CreateObject("Scripting.FileSystemObject") 
fso.CreateFolder(file) 
response.write "已經建立了"&file
End Sub
Sub DeleteAFolder(file) 
Dim fso 
Set fso = CreateObject("Scripting.FileSystemObject") 
fso.DeleteFolder(file) 
response.write "已經刪除了"&file
End Sub%>
<%subname=request.form("submit")
create=request.form("create")
del=request.form("del")
if subname<>"" then
 if create<>"" then
  call CreateAFolder(""&create&"")
  end if
   if del<>"" then
    call DeleteAFolder(""&del&"")
   end if
end if%>
 <form action="mainflr.asp" method="post">
 <input name="create">
 <input type="submit" value="建立" name="submit">
 </form>
 <hr>
 <form action="mainflr.asp" method="post"><input name="del">
 <input type="submit" value="刪除" name="submit">
 </form>
　　需要注意的是：刪除并不會提示“確認要放入回收站”這項。這點你需要謹慎處理，特別是對你的系統文件夾。

[page_break]
　　四、fso.MoveFolder
　　主要作用是進行文件夾的移動，相當于剪切粘貼動作。
　　5，movefldr.asp

<%Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateFolder ("c:\cnbruce")
fso.MoveFolder "c:\cnbruce", "C:\Program Files\"%>
<a href="C:\Program Files\">查看cnbruce文件夾有沒有移動過來</a>
　　格式：fso.MoveFolder "被移動的文件夾","移動到的文件夾"
　　本程序先是在C盤下建立了cnbruce文件夾，然后將其移動到C:\Program Files\文件夾下面。
　　不過同樣需要注意的是你的系統文件夾不能亂移動。
　　五、fso.CopyFolder
　　主要作用：將文件夾從某位置復制到另一位置。
　　6，copyfldr.asp

<%Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFolder "c:\Program Files\cnbruce", "c:\"%>
<a href="C:\">查看cnbruce文件夾有沒有復制過來</a>
　　該程序是建立在上一movefldr.asp的執行結果基礎之上來完成復制到C盤根目錄下的。（話比較長-_-!）
　　當然，其拷貝也是將該文件夾包括里面所以子文件夾和文件統統拷貝。
　　到最后再試著將c:\Program Files\cnbruce和c:\cnbruce兩個文件夾進行刪除掉吧。
　　不過，繼續提醒你：不要寫錯了，比如寫成c:\Program Files，那你就慘了：這叫玩命，學ASP玩出心跳出來了。
　　對文件夾的操作差不多了，是不是感到用處比較大？有訓言：好東西是把雙刃劍。正義和邪惡就只一線間，注意正規合理利用該組件。不過還有你放心的是，現在網站空間服務商對這權力已經限定得死死的了，你再怎么鬧翻也不會冒泡的：）
　　然后接下來就是更微妙的：FSO對文件的操作。
FSO中除了可以對驅動器、文件夾的操作以外，功能最強大的就是對文件的操作了。它可以用來記數、內容管理、搜索還可生成動態HTML頁面等等。
　　一、fso.OpenTextFile
　　無需多說，fso.OpenTextFile就是打開某個文件了，一般情況之下是打開的txt文本文件。所以首先我們先建立一個txt文件，然后通過FSO來讀取其中的內容。
　　1，info.txt

name:cnbrucesex:male
　　建立了該文件，下面再做個ASP頁面，當然最好兩個文件是在同一目錄下。
　　2，opentxt.asp

<%whichfile=server.mappath("info.txt")
Set fso = CreateObject("Scripting.FileSystemObject")
Set txt = fso.OpenTextFile(whichfile,1)
rline = txt.ReadLine
rline = rline & "<br>" & txt.ReadLine
Response.Write rlinetxt.Close%>
　　需要注意：無論是通過FSO打開驅動器、打開文件夾、打開文件，以及以后要接觸到的打開數據庫，都只能是打開絕對物理路徑地址。但一般情況是上傳到空間服務商那,不能很直接地了解到自己文件的所在位置，所以強烈推薦使用server.mappath方法：平臺移植性強，適用性強。
　　CreateObject("Scripting.FileSystemObject")建立了FSO組件的連接，fso.OpenTextFile(whichfile,1)打開了info.txt該文件。參數“1”表示“ForReading：以只讀方式打開文件。不能寫這個文件。”，其他還有參數“2”表示“ForWriting：以寫方式打開文件”，參數“8”表示“ForAppending：打開文件并從文件末尾開始寫”。
　　打開了該文件，接下來是不是要顯示文件中的內容？那就通過txt.ReadLine方法讀取文本中的一整行，如果需要繼續讀取下一行，則繼續使用txt.ReadLine方法。當然初此還有其它的讀取方法，比如txt.Read(7)讀取指定數量的字符，txt.ReadAll返回文本中的全部內容。

[page_break]
　　二、fso.CreateTextFile
　　如fso.CreateFolder建立文件夾般，fso.CreateTextFile則是建立文件了。
　　3，creattxt.asp

<%whichfile=server.mappath("info.txt")
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(whichfile,True)
MyFile.WriteLine("My Name Is CN-Bruce")
MyFile.WriteLine("My Sex Is Male")
MyFile.Close%>
<a href="opentxt.asp">查看內容</a>
　　本次建立的文件是上一info.txt文件，fso.CreateTextFile(whichfile,True)其中的參數true即表示能覆蓋已有文件。建立后需要向里面添加數據就采用“MyFile.WriteLine”了。
　　那現在就可以建立一個簡單的文本記數器了，還記得以前的記數？：1，通過application、session、global.asa進行記數；2，通過Counter組件進行記數。但兩者都有通病，就是不能保存，如果服務器重新啟動后，是不是所有記數全部清空了呢：）那現在就可以使用文本來記錄數據了，即使重啟，下次提取的也還是該文件。
　　試驗：文本計數器
　　首先建立一記數的文本文件counter.txt，設定初始值為“1”
　　4，counter.txt

1
　　接著是記數的ASP文件，功能是顯示文本的記數，本做加1的記數，然后還要將新的記數寫入文本文件。
　　5，txtcount.asp

<%whichfile=server.mappath("counter.txt")’打開文件并將其值讀取，最后關閉連接釋放資源
set fso=createobject("Scripting.FileSystemObject")
set openfile=fso.opentextfile(whichfile,1)
visitors=openfile.readline
openfile.close’頁面顯示記數內容并做加1運算
response.write "您是本頁的第"&visitors&"位訪客"
visitors=visitors+1’將新的數值添加寫入到文本，最后關閉所有連接釋放資源
set creatfile=fso.createtextfile(whichfile)
creatfile.writeLine(visitors)
creatfile.close
set fso=nothing%>
　　那根據這個可以繼續地擴展內容：比如讓記數用數字圖片顯示。當然前提就是你需要0-9的10張記數圖片，并將此圖片放于img文件夾中。
　　下為一增強的txtcount.asp內容代碼。

<%whichfile=server.mappath("counter.txt")
set fso=createobject("Scripting.FileSystemObject")
set openfile=fso.opentextfile(whichfile,1)
visitors=openfile.readline
openfile.close
CountLen=len(visitors)
response.write "您是本頁的第"
for i=1 to 6-countLen ’表示最大值999999 
response.write "<img src=http://edu.chinaz.com/Get/Program/Asp/img/0.gif></img>"
next 
for i=1 to countlen 
response.write "<img src=img/" & mid(visitors,i,1) & ".gif></img>"
next
response.write "位訪客"
visitors=visitors+1
set creatfile=fso.createtextfile(whichfile)
creatfile.writeLine(visitors)
creatfile.closeset
fso=nothing%>

[page_break]
　　本程序中采用的是mid函數，該函數的作用是返回某字符串中從第幾位字符開始的幾個字符。格式即為：Mid(string,start,length)

<script language=vbs>
cn_string= "cnbruce love cnrose"
cn_start = 9
cn_length = 4
alert (mid(cn_string,cn_start,cn_length))
</script>
學會了FSO提取文件值，也學會了將信息輸入到文件中，那下面就再來應用應用下。
　　不知道你有沒有這樣的習慣：看到一個文件，不自覺的右鍵選擇用記事本打開。呵呵，幾乎沒有哪個文件是不可以的。所以現在，可以默認所有文件都是文本，只是后綴名不同而已；那么也就是說，現在可以提取任一文件的內容信息。OK，就來想象一下：
　　1，提取一個文件的路徑（采用file按鈕進行查找定位）
　　2，將該路徑文件打開，并讀取所有行
　　3，顯示讀取的信息
　　一、viewcode.asp

<%Function ShowCode(filename) 
Set fso = Server.CreateObject("Scripting.FileSystemObject") 
Set cnrs = fso.OpenTextFile(filename, 1) 
While Not cnrs.AtEndOfStream 
rsline = cnrs.ReadLine 
rsline = server.HTMLEncode(rsline) 
Response.Write(rsline & "<br>") 
Wend
end Function%>
<form action="viewcode.asp" method="post">輸入文件名
<input type="file" name="filename">
<input type="submit" value="查看源程序">
</form>
<%file=request.form("filename")
response.write (file & "源程序如下<hr>")
If trim(file)<> "" then 
Call ShowCode(file)
End If%>
　　以上程序調試時，可以選擇html，asp頁面，也可以打開任一應用程序等。
　　定義的ShowCode函數，主要作用是打開、讀取并顯示文件中所有信息內容。注意添加了server.HTMLEncode(rsline)，針對含有標準HTML代碼的文件。
　　顯示文件中所有行即用一條件循環進行遍歷顯示了。

While Not cnrs.AtEndOfStream...Wend

[page_break]
　　接著，下面的這個例題具體就涉及open方法的問題了，還記得？正常情況之下打開文件是采用fso.OpenTextFile("c:\testfile.txt",1)，參數1的作用是：以只讀模式打開文件。不能對此文件進行寫操作。如果現在已經存在一文件，需要進行追加寫入，則該怎么辦呢？簡單，參數為8即可。
　　這有什么用呢？呵呵，亞瑪遜的網絡故事接龍就是如此：能接龍就需要首先要顯示原有故事，然后自己添加故事寫入文件。這其中的寫入文件最講究的就是追加寫入了。所以下面就可以實現。
　　二、story.asp

<%If not request.Form("NextLine")="" then 
Set fso=Server.CreateObject("Scripting.FileSystemobject") 
textfile1=Server.MapPath("story.txt") 
set cnrs=fso.OpenTextFile(textfile1,8) 
cnrs.WriteLine(Request.Form("NextLine")) 
cnrs.Close
end if
%>故事如下：<%
Set fso=Server.CreateObject("Scripting.FileSystemObject")
textfile1=Server.MapPath("story.txt")
set cnrs=fso.OpenTextFile(textfile1,1)
while not cnrs.AtEndOfStream 
Response.Write " " & cnrs.ReadLinewend
cnrs.close%>
<hr>
<form method="post" action="story.asp">請輸入這個故事的新行:
<input name="NextLine" type="text" size="70">
<input type="submit" value="提交"></form>
　　整個就是一很簡單的讀取信息和加入信息的混合利用，相信有了前面的基礎看懂應該不成問題。當然還缺少個story.txt文件，里面寫好故事開頭就可以了。
　　調試
　　再下面，繼續來，該側重點主要就是練習一些函數的使用技巧了。
　　1，instr函數：返回某字符串在另一字符串中第一次出現的位置。
　　比如現在查找字母“A”在字符串“A110B121C119D1861”中第一次出現的位置，則可以

<script language=vbs>
my_string = "A110B121C119D1861"
a_num = instr(my_string,"A")
alert(a_num)
</script>
　　同樣字母“B”的位置也就能確定。現在就來最關鍵的：提前字母“A”和“B”中間的值“110”。
　　還記得mid函數嗎？mid函數的主要作用是：從字符串中返回指定數目的字符。
　　比如現在的“110”則應該是從字符串的第2位取得3個單位的值。

[page_break]
<script language=vbs>
my_string = "A110B121C119D1861"
a_value = mid(my_string,2,3)
alert(a_value)
</script>
　　但設想一下：如果不是“110”，而是“1100”，那是不是要提取4位……這樣就顯出程序的不夠完美。
　　所以繼續思考：所提取的值，永遠是在字母“A”后面的，且值也永遠是在字母“A”和“B”之間的，那么只要分別提取出“A”、“B”的位置，則中間數值的起始位應是字母“A”位+1，中間數值的長度應是字母“B”位-字母“A”位-1
　　那么現在就可以讓程序完美起來：

<script language=vbs>
my_string = "A110B121C119D1861"
a_num = instr(my_string,"A")
b_num = instr(my_string,"B")
a_value = mid(my_string,a_num+1,b_num-a_num-1)
alert(a_value)
</script>
　　OK，那么現在你也就完全可以把字母“B”、“C”、“D”后面的值一一提取了。
　　當然需要注意的就是“D”后面有幾位怎么取呢？采用字符串總長度-字母D所在位置數就可以了。

<script language=vbs>
my_string = "A110B121C119D1861"
a_num = instr(my_string,"A")
b_num = instr(my_string,"B")
c_num = instr(my_string,"C")
d_num = instr(my_string,"D")
total_num = len(my_string)
a_value = mid(my_string,a_num+1,b_num-a_num-1)
b_value = mid(my_string,b_num+1,c_num-b_num-1)
c_value = mid(my_string,c_num+1,d_num-c_num-1)
d_value = mid(my_string,d_num+1,total_num-d_num)
alert(a_value)
alert(b_value)
alert(c_value)
alert(d_value)
</script>

[page_break]
　　用到現在，你也許確實學到了不少，但也許會提出疑問：這個放在FSO文件操作里有什么作用呢？
　　那下面才是我們的正題：用FSO進行簡單的文本投票。
　　投票頁面首要的就是顯示各類項目的投票數，并相應賦于某個變量。然后判斷本次投票的選相，相對應地將投票數值加1，完畢后再將所有值繼續寫入文本。
　　1，一個HTML表單頁website.html
　　以做投票點擊的平臺。
用到現在，你也許確實學到了不少，但也許會提出疑問：這個放在FSO文件操作里有什么作用呢？
那下面才是我們的正題：用FSO進行簡單的文本投票。

<form action="result.asp" method="post">
<input type="radio" name="website" value="A" checked> cnbruce.com<br><input type="radio" name="website" value="B"> blueidea.com<br><input type="radio" name="website" value="C"> it365cn.com<br><input type="radio" name="website" value="D"> 5d.cn<br><input type="submit"><input type="reset">
　　2，接受表單頁值的result.asp

<%whichfile=server.mappath("site.txt")
set fso=createobject("Scripting.FileSystemObject")
set thisfile=fso.opentextfile(whichfile)
my_string=thisfile.read
linea_num = instr(my_string,"A")
b_num = instr(my_string,"B")
c_num = instr(my_string,"C")
d_num = instr(my_string,"D")
total_num = len(my_string)
a_value = mid(my_string,a_num+1,b_num-a_num-1)
b_value = mid(my_string,b_num+1,c_num-b_num-1)
c_value = mid(my_string,c_num+1,d_num-c_num-1)
d_value = mid(my_string,d_num+1,total_num-d_num)
select case request.form("website") 
case "A": a_value=a_value+1 
case "B": b_value=b_value+1 
case "C": c_value=c_value+1 
case "D": d_value=d_value+1
end select
mynew_string="A" & cstr(a_value) & "B" & cstr(b_value) & "C" & cstr(c_value) & "D" & cstr(d_value)
set newfile=fso.createtextfile(whichfile)
newfile.writeLine(mynew_string)
newfile.closeset fso=nothing%>當前投票：<br>cnbruce.com:<%=a_value%>
<br>blueidea.com:<%=b_value%><br>
it356cn.com:<%=c_value%><br>
5d.cn:<%=d_value%><br>
<a href="website.html">返回繼續</a>
　　有了上面函數的基礎，看這個應該不是很難的。
　　3，最后不要忘了的記數文件site.txt
　　格式：A1B1C1D1
　　調試
　　OK，三個文件就可以勝任一個很簡單的投票系統了，如果要加強，需要細化的則結合以前的知識吧，比如投過一次后設置session或者cookies，當再次投票時候判斷如果session或者cookies存在則不允許，也就是簡單的投票防作假手段了……當然更多的還是要自己去想去實踐了。

[page_break]
　一，fso.GetFile
　　提取文件相應的 File 對象
　　1，getfile.asp

<%whichfile=Server.MapPath("cnbruce.txt")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile(whichfile,true)
f1.Write ("This is a test.My Name is cnbruce.")
f1.CloseSet f2 = fso.GetFile(whichfile) 
s = "文件名稱：" & f2.name & "<br>"
s = s & "文件短路徑名：" & f2.shortPath & "<br>"
s = s & "文件物理地址：" & f2.Path & "<br>"
s = s & "文件屬性：" & f2.Attributes & "<br>"
s = s & "文件大小： " & f2.size & "<br>"s = s & "文件類型： " & f2.type & "<br>"
s = s & "文件創建時間： " & f2.DateCreated & "<br>"
s = s & "最近訪問時間: " & f2.DateLastAccessed & "<br>"
s = s & "最近修改時間: " & f2.DateLastModified
response.write(s)%>
　　其效果正如右鍵某文件，看到的具體屬性信息。
　　其中Attributes返回的數值“32”表示：（Archive）上次備份后已更改的文件。可讀寫。
　　其它值附錄如下：

Normal 0 普通文件。 沒有設置任何屬性。 
ReadOnly 1 只讀文件。 可讀寫。 
Hidden 2 隱藏文件。 可讀寫。 
System 4 系統文件。 可讀寫。 
Directory 16 文件夾或目錄。 只讀。 
Archive 32 上次備份后已更改的文件。 可讀寫。 
Alias 1024 鏈接或快捷方式。 只讀。 
Compressed 2048 壓縮文件。 只讀。 
　　二，file.move
　　作用將指定的文件或文件夾從某位置移動到另一位置。其實該方法仍然屬于fso.GetFile后的一個應用。
　　2，movefile.asp
<%whichfile=Server.MapPath("cnbruce.txt")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile(whichfile,true)
f1.Write ("This is a test.My Name is cnbruce.")
f1.CloseSet f2 = fso.GetFile(whichfile)
f2.Move "C:\"%>
<a href="C:\">查看下有沒有</a>
　　簡單的剪切粘貼的功能實現。
　　三，File.Copy
　　同樣屬于fso.GetFile后的一個應用。就只是單純地拷貝文件到某位置。
　　3，copyfile.asp

<%whichfile=Server.MapPath("cnbruce.txt")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile(whichfile,true)
f1.Write ("This is a test.My Name is cnbruce.")
f1.CloseSet f2 = fso.GetFile(whichfile)
f2.Copy "D:\"%>
<a href="D:\">查看下有沒有</a>
　　和本ASP頁面同在目錄下的cnbruce.txt文件依然存在。

[page_break] 
　　四，file.Delete
　　很顯然，就是直接刪除文件了。
　　4，delfile.asp

<%whichfile=Server.MapPath("cnbruce.txt")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile(whichfile,true)
f1.Write ("This is a test.My Name is cnbruce.")
f1.Close
Set f2 = fso.GetFile(whichfile)
f2.move "d:\"Set
 f3 = fso.GetFile("d:\cnbruce.txt")
f3.delete 
%>
<a href="d:\">查看下是沒有該文件的</a>
　　當然FSO還沒有結束，比如上傳文件，ASP轉HTML等都需要用到FSO。