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