|
FSO，正如UFO般令人激動(dòng)、令人神往，當(dāng)然更多的亦是讓人歡喜讓人憂。君不見(jiàn)某空間服務(wù)商廣告：100MB空間只要60RMB/年，支持?jǐn)?shù)據(jù)庫(kù)，支持什么什么……一問(wèn)不支持FSO，立馬泄氣。那FSO究竟是什么東西，它的力量又是如何巨大，其操作的原理又是怎的怎的呢？這次來(lái)個(gè)徹底的理解。 首先，F(xiàn)SO是FileSystemObject的簡(jiǎn)稱。當(dāng)然也就是我們的俗稱FSO組件了，該組件可以用來(lái)處理驅(qū)動(dòng)器、文件夾以及文件。 它可以檢測(cè)并顯示出系統(tǒng)驅(qū)動(dòng)器的信息分配情況；還能夠創(chuàng)建、改變、移動(dòng)和刪除文件夾，并能探測(cè)一些給定的文件夾是否存在，若存在，還能提取出該文件夾的信息，如名稱、被創(chuàng)建或最后一次修改的日期，等等。FSO還使得對(duì)文件的處理變得很容易。 一、fso.GetDrive 正如其它組件的建立一樣，F(xiàn)SO的引用也必須建立連接。 Set fso=Server.CreateObject("Scripting.FileSystemObject")
注意CreateObject的內(nèi)部再也不是MSWC了，而是Scripting。 那下面就可以通過(guò)fso來(lái)處理驅(qū)動(dòng)器了。比如fso.GetDriveName提取驅(qū)動(dòng)器名，fso.GetDrive同樣提取標(biāo)準(zhǔn)驅(qū)動(dòng)器名。比如： 1，fso.asp <%Set fso=Server.CreateObject("Scripting.FileSystemObject")%>
<%=fso.GetDriveName("d:")%><br>
<%=fso.GetDrive("d:")%>
你會(huì)發(fā)現(xiàn)GetDriveName("d:")就是“d:”，而GetDrive("d:")則為標(biāo)準(zhǔn)的“D:”，所以我們一般這樣寫fso.GetDrive(fso.GetDriveName(drvPath))來(lái)提取某個(gè)具體的驅(qū)動(dòng)盤。 二、drv.GetInfo 上面已經(jīng)把某個(gè)特定的驅(qū)動(dòng)器提取了，那接著是不是提取該驅(qū)動(dòng)盤的具體信息。 2，drv.asp <%
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set drv=fso.GetDrive(fso.GetDriveName("d:"))
%>
該盤的空間大?。?lt;%=drv.TotalSize%><br>
該盤的剩余空間大小：<%=drv.FreeSpace%>
以上只是提取的D盤驅(qū)動(dòng)器的信息，來(lái)個(gè)通用的函數(shù)，繼續(xù)分別測(cè)試自己的驅(qū)動(dòng)吧。 3，drvinfo.asp <%
Function ShowDriveInfo(drvPath)
Dim fso, drv, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set drv = fso.GetDrive(fso.GetDriveName(drvPath))
s = "驅(qū)動(dòng)盤" & drv & "的卷標(biāo)是："
s = s & drv.VolumeName & "<br>"
s = s & "總計(jì)空間：" & drv.TotalSize & "<br>"
s = s & "剩余空間：" & drv.FreeSpace & "<br>"
s = s & "文件類型：" & drv.DriveType & "<br>"
s = s & "文件系統(tǒng)：" & 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返回的是字節(jié)數(shù)，我們可以用FormatNumber()函數(shù)處理下。比如FormatNumber(Drive.TotalSize/1024,0)得到一眼就知磁盤多少G的值。 還有一個(gè)文件類型：drv.DriveType最多的時(shí)候是顯示數(shù)值“2”，其實(shí)“2”就表示的“硬盤驅(qū)動(dòng)器”，“1”表示“軟盤驅(qū)動(dòng)器”，“4”表示“光盤驅(qū)動(dòng)器”…… 下面就用一個(gè)程序遍歷顯示自己機(jī)器上所有驅(qū)動(dòng)器的信息 4，showall.asp <%
Function tran(Driver)
Select Case Driver
Case 0: tran="設(shè)備無(wú)法識(shí)別"
Case 1: tran="軟盤驅(qū)動(dòng)器"
Case 2: tran="硬盤驅(qū)動(dòng)器"
Case 3: tran="網(wǎng)絡(luò)硬盤驅(qū)動(dòng)器"
Case 4: tran="光盤驅(qū)動(dòng)器"
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>卷標(biāo)</td>
<td>總計(jì)大小</td>
<td>可用空間</td>
<td>文件系統(tǒng)</td>
<td>序列號(hào)</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>
|
|
|
