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 = "Driver:" & drv & "的LABEL是："
   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”表示“光盤驅動器”……
下面就用一個程序遍歷顯示自己機器上所有驅動器的信息。

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 Select
End Function
set fso=Server.CreateObject("Scripting.FileSystemObject")
%>
<table border=1 width="100%">
<tr>
<td>盤號</td>
<td>類型</td>
<td>LABEL</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>"
Next
set 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 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>
需要注意的是：刪除並不會提示“確認要放入回收站”這項。
這點你需要謹慎處理，特別是對你的系統文件夾。

四、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中除了可以對驅動器、文件夾的操作以外，功能最強大的就是對文件的操作了。它可以用來記數、內容管理、搜索還可生成動態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.Open TextFile(whichfile,1)
rline = txt.ReadLine
rline = rline & "<br>" & txt.ReadLine
Response.Write rline
txt.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”了。

那現在就可以建立一個簡單的文本記髁耍辜塹靡鄖暗募鞘浚?，通過application、session、global.asa進行記數；2，通過Counter組件進行記數。但兩者都有通病，就是不能保存，如果服務器重新啟動后，是不是所有記數全部清空了呢：）那現在就可以使用文本來記錄數據了，即使重啟，下次提取的也還是該文件。

試驗：文本計數器
首先建立一記數的文本文件counter.txt，設定初始值為“1”

4，counter.txt
接著是記數的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.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.readline
openfile.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>"
next
response.write "位訪客"visitors=visitors+1
set creatfile=fso.createtextfile(whichfile)
creatfile.writeLine(visitors)
creatfile.close
set fso=nothing
%>
本程序中采用的是mid函數，該函數的作用是返回某字符串中從第幾位字符開始的幾個字符。格式即為：Mid(string,start,length)

<script language=vbs>
cn_string= "cnbruce love cnrose"
cn_start = 9cn_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>")
   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.Write Line(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個單位的值。

<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.readline
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)
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
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.write Line(mynew_string)
newfile.close
set 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.Close
Set 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.Close
Set 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.Close
Set 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。更精彩的依然是在后面。

 

文章來自: Tank部落格
引用通告: 查看所有引用 | 我要引用此文章
Tags: FSO
相關日誌: