首先，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 sEnd Function%><%on error resume nextwhatpath=request.form("path")if whatpath<>"" thenShowDriveInfo(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”表示“光盤驅動器”……
下面就用一個程序遍歷顯示自己機器上所有驅動器的信息。
4，showall.asp
<%Function tran(Driver)Select Case DriverCase 0: tran="設備無法識別"Case 1: tran="軟盤驅動器"Case 2: tran="硬盤驅動器"Case 3: tran="網絡硬盤驅動器"Case 4: tran="光盤驅動器"Case 5: tran="RAM虛擬磁盤"End SelectEnd 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 nextFor 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:你對驅動器是不能輕易添加刪除的：）
操作完驅動器，接着就是來操作文件夾了。其中包括：提取文件夾信息、創建文件夾、刪除文件夾、複製文件夾、移動文件夾等。下面就具體來看。
一、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 IfResponse.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 "已經建立了"&fileEnd SubSub DeleteAFolder(file) Dim fso Set fso = CreateObject("Scripting.FileSystemObject") fso.DeleteFolder(file) response.write "已經刪除了"&fileEnd 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>
需要注意的是：刪除並不會提示“確認要放入回收站”這項。這點你需要謹慎處理，特別是對你的系統文件夾。
四、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.ReadLinerline = rline & "<br>" & txt.ReadLineResponse.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返回文本中的全部內容。
二、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.readlineopenfile.close'頁面顯示記數內容並做加1運算response.write "您是本頁的第"&visitors&"位訪客"visitors=visitors+1'將新的數值添加寫入到文本，最後關閉所有連接釋放資源set creatfile=fso.createtextfile(whichfile)creatfile.writeLine(visitors)creatfile.closeset 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.readlineopenfile.closeCountLen=len(visitors)response.write "您是本頁的第"for i=1 to 6-countLen '表示最大值999999 response.write "<img src=img/0.gif></img>"next for i=1 to countlen response.write "<img src=img/" & mid(visitors,i,1) & ".gif></img>"nextresponse.write "位訪客"visitors=visitors+1set creatfile=fso.createtextfile(whichfile)creatfile.writeLine(visitors)creatfile.closeset fso=nothing%>
本程序中採用的是mid函數，該函數的作用是返回某字符串中從第幾位字符開始的幾個字符。格式即爲：Mid(string,start,length)
<script language=vbs>cn_string= "cnbruce love cnrose"cn_start = 9cn_length = 4alert (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>") Wendend 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
接着，下面的這個例題具體就涉及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.Closeend 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.ReadLinewendcnrs.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個單位的值。
<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>
用到現在，你也許確實學到了不少，但也許會提出疑問：這個放在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.readlinea_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+1end selectmynew_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存在則不允許，也就是簡單的投票防作假手段了……當然更多的還是要自己去想去實踐了。
一，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.DateLastModifiedresponse.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文件依然存在。
四，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.CloseSet f2 = fso.GetFile(whichfile)f2.move "d:/"Set f3 = fso.GetFile("d:/cnbruce.txt")f3.delete %><a href="d:/">查看下是沒有該文件的</a>
當然FSO還沒有結束，比如上傳文件，ASP轉HTML等都需要用到FSO。