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同樣提取標準驅動器名。比如：                xker.com
　　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                                   xker.com


<%Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set drv=fso.GetDrive(fso.GetDriveName("d:"))%>
該盤的空間大?。?lt;%=drv.TotalSize%><br>
該盤的剩余空間大?。?lt;%=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)                               

本新聞共9頁,當前在第1頁  1  2  3  4  5  6  7  8  9  

原文轉自：http://www.kjueaiud.com