ASP編程入門進階（十六）：FSO組件之磁碟機操作

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 & "的卷標是："